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ABSTRACT 


This report explains the operation of a variable length FFT 
Algorithm and an associated Spectra FIT Program for use in 
an Automated Seismic Processor (ASP) System for 

licroearthquake Networks. Sufficient background is given 
concerning the requirement for the remote sensing and 
processing being undertaken. The interaction of these 
algorithms with the ASP software system is explained. The 
algorithm and its implementation on the RCA 1802 CMOS 
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which were developed for the task are explained. Results of 
the operation, both for tests of the FFT operation and for 
simulated earthquake operation, are presented. The Program 
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Results are included. 
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1.0 INTRODUCTION 


1.1 Objective 


The objective of this \\Drk \Vas to 
dsvelop a Fast Fourier Transform (FFT) and a Power Spectra Density Fitting 


program (FIT) for use in an Automated Seismic Processor (ASP) System for 


Microearthquake Networks. ASP is a multichannel system which digitizes and 


stores the readings from a number of distributed seismometers. Upon detection 


of an event of interest from a large enough number of sensors the FFT routine is 


called to calculate the Power Spectral Density of the earthquake energy for each 


of those sites. The resulting spectra is FIT for Long Period Level (LPL), 


Corner Frequency (Fa), and High Frequency Slope (GA}mA), and these results are 


output to the operator. 


The system is designed for long-term, remote, unattended sensing. 


The RCA 


1802 CMOS microprocessor was selected, primarily because of its low power 


consumption. This processor, and the associated COSMAC architecture, are 


utilized for the FFT/FIT programs. Because the seismographic sensing capability 


must be deferred while the FFT/FIT programs are computing, the speed of the 


calculations is a critical parameter. Speed was optimized as much as possible 


within the additional constraint of a limited address space (due again to power 


consumption and also the limited availability of CtIDS memory chips at the time 


of development). 
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1.2 Scope 


This report will give a brief background of the requirement of the ASP 


development. 


A short introduction on the physics of earthquake dynamics is 


provided to set the context for operation. 


The interaction of the various 


sections of the ASP software system is presented. The operation of the FFT and 


FIT programs is then described in detail. Debugging tools which were developed 


for the task are explained. Results of the operation, both for tests of the FFT 


operation and for simulated earthquake operation, are presented. 


The Program 


Code, Run Time Code, FFT Validation Results and Earthquake Results are included. 


1.3 Background 


The background, purpose, design, and operation of the overall ASP System is 


beyond the scope of the work being reported on here. However, for the purpose 


of completeness, and to establish a point of reference for the reader, this 


section, and Sections 2.2 System Operation, 2.2.1 ASP Software, 2.2.2 ASP 


Hardware, and 2.2.3 ASP Operation, have been included. 


They are taken from 


[McEv] and are included with the permission of the authors. 


For several years scientists at the University of California at Berkeley 


(UCB) and the associated Lawrence Berkeley Laboratory (LBL) have been involved 


in a research program to evaluate and develop seismological techniques for the 


exploration and delineation of geothermal reservoirs. It has been necessary in 


this effort to develop equipment as well as field procedures and theoretically 


based methods of analysis. From field investigations in Nevada [Maje78], at The 


Geysers [Maye79], and in the Cerro Prieto geothermal region [Maje80], it has 


become apparent that effective study of the relation between seismicity and 
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geothermal reservoir dynamics requires more than conventional data reduction 


techniques. 


The concept of an Automated Seismic Processor (ASP) was seen to 


offer the necessary rapid and cost-effective approach to microearthquake 


monitoring and analysis in applications to geothermal exploration and reservoir 


delineation. 


The impetus for the development of ASP was the need to simplify routine 


microearthquake data acquisition and reduction in such investigations. Ideally, 


ASP would be a low-power, in-field data acquisition and real-time analysis 


system with adequate computational speed, bandwidth (0-100 Hz), and dynamic 


range (16-bit). The system should be multi-channel (up to 128), with the 


ability to operate unattended in hostile environments for long periods of time. 


Other automated systems are primarily laboratory-based systems compatible with 


larger computer facilities and peripheral devices (see [Stew] and [AIle]). 


Our experience in microearthquake work has led to a conviction that it is 


possible to define and automate the associated routine time-consuming data 


reduction and processing tasks. For each data channel or station, these include 


the 


detection 


and 


identification of valid events, time and amplitude 


measurements of the P and S waves, calculation of the Fast Fourier Transform 


(FFT) on properly windowed P and S waves, and the reduction of P and S spectra 


to Long-Period Level, Corner Frequency, and High Frequency Slope. p-wave first 


motion polarity with a quality grade is also required. Given these data from a 


number of channels, the event would be located, with source parameters 


determined for the spectral information and the polarity data. An updated b 


value would be obtained for the sequence, along with statistics on the occurence 


of events as a function of average S - P times. 
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Although other systems had demonstrated many of these capabilities, such 


real-time analysis had not yet been achieved with a low-power field-based 


system. Our most radical departure from previous work, however, is the 


philosophy that the original time series need not be saved. We are convinced 


that proper data reduction and judicious selection of output will provide 


virtually all results of interest in conventional microearthquake surveys. 


Based upon these concepts, ASP has been designed and built for routine 


microearthquake studies, with sufficient data analysis to provide critical 


earthquake parameters, in a trade-off with computing speed and capacity. 


(Figure 1.3.a shows a IS-channel ASP packaged for field use in a van). 
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2.0 ASP OPERATION 


2.1 Earthquake Dynamics 


Shock waves resulting from an earthquake can occur in two forms [Rich]. The 


initial wave is called a Primary or P-Wave and is characterized as compression 


in nature. There may also be a subsequent Secondary or S-Wave, which is 


characterized as shear. For these two waves the velocities of propagation are 


different (both are also dependent on the transmission strata). This difference 


in transmission times allows for a distance calculation and, if received by 


three or more stations, the hypocenter and/or epicenter may also be located. It 


will be seen that the difference in time of arrival is also used to select the 


correct window lengths for the FFT calculations. 


2.2 System Operation 


ASP was conceived as the low-power C
IDS microprocessor technology revolution 


was just beginning. 


At the time the 8-bit CMOS RCA 1802 device was the only 


microprocessor that met our requirements. 


As a feasibility exercise, a 


two-channel prototype system using the 1802 was completed successfully in the 


fall of 1978. A 16-channel ASP was built the following year, in a joint 


hardware/software development program. 


While several circuit boards are RCA 


products, many are not .. off the shelf", and were designed and builtin-house. 


Approximately four man-years were required for the development, fabrication, and 


initial testing of the first 16-channel ASP. Hardware cost is about $2500 per 


channel. 
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2.2.1 ASP Software 


ASP is designed as a parallel processing device with a dedicated CMOS 


microcomputer monitoring each incoming channel of data. Each dedicated-channel 


microcomputer, or WORKER, feeds processed data to a central microcomputer, or 


BOSS, which controls the network and performs multi-station data analysis. A 


total of 127 WORKERS can be handled by a single BOSS (i.e., 128 individual 


processors). 


2.2.1.1 WORKER Routines 


The principal function each WORKER is to monitor the incoming time series of 


a data channel. The sequence of operations in the system is: 


(1) the time series X(ti) is digitized at 100 samples/see with 12 bit 
resolution; 


(2) the mean is removed from the time series; 


(3) a new time series X'(ti) is formed by 


X'(ti) - (l/n) * Sum[X(tj)], j - i-n, ..., i 


(4) a Long Term Average (LTA) of 4096 points and a Short Term Average (STA) 
of 16 points is taken on X'(ti); 


(5) if the STA exceeds the LTA by a specified constant, then a "trigger" is 
found, else WORKER waits for a new digitization point. 


At anyone time 512 points of the original demeaned time series plus the STA 


and LTA values are saved. If a trigger point is found the true P-Wave arrival 


time (PT) is computed based upon this trigger time and a different constant; it 


will always precede the trigger time. See Figure 2.2.1.1.a for two examples of 


original time series x(ti), derived time series x'(ti), trigger detection 


(second vertical line), and PT P-Wave arrival time (first vertical line). 
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Although similar to the P-Wave algorithms, the S-Wave detection is slightly 


different. 


In this case the LTA is based upon the P-Amplitude (PA). When the 


STA of X'(ti) exceeds PA by a specified amount then the S-Trigger is declared. 


S-Time of arrival, (ST), is based upon the slope of the pair of preceding four 


point sets. (Again see Figure 2.2.1.1.a for S-Wave trigger detections and ST 


arrival times, forth and third vertical lines, respectively). At this stage 


both P- and S-Waves are timed, DT, the ST-PT time, is computed, and the 


S-Amplitude (SA) is measured. Values of P- and S-Wave quality (PQ and SQ) and 


P-Wave polarity (PP) are also calculated. 


Variable length windows for FFT computations are then placed around the P- 


and S-Waves. 


Available window lengths are 64, 128, and 256 points for the 


P-Wave and 128, 256, and 512 points for the S-Wave, selected automatically for 


ST-PT times of 0 to 1.28, 1.28 to 6 and greater than 6 seconds, respectively. 


If no S-Wave is found a 128 point window is used for the P-Wave. Demeaned data 


are held in these windows for subsequent spectral analysis. 


FFTs are calculated for the windowed P- and S-Waves using the algorithm 


described by Brigham [Brig]. The first 12.5% of the S-Wave data window and the 


last 25% of both the P- and S-Wave data window are shaped with the raised cosine 


bell function [1/2 + 1/2(cos(2*pi*n/N))]. The amplitude response of a V-pole 


low pass Butterworth filter, 


AO 
A - ------------------- 
[1 + (f/FO)A2V]AO.5 


is fit for Long Period Level (LPL) , Corner Frequency (FO), and the High 


Frequency Slope (Gfu


). 
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A WORKER can be aborted at certain times in its calculation if the BOSS 


routine determines that too few stations recorded the event during a specified 


time window or that the time between the first and last P times was too small 


(i.e., a noise spike in the system). Upon abortion the WORKER returns to the 


detection mode. 


An event is determined to be over when the signal level remains below the 


P-Trigger threshold for 256 samples. 


This can occur even without an S-Wave 


detection. If the level remains above the trigger threshold for six minutes a 


new LTA is calculated and the WORKER resets itself and resumes looking for 


another event. 


All WORKERS will remain in HOLD while BOSS is calculating. 


While in HOLD 


the WORKERS can complete their sequence of calculations but cannot resume the 


detection mode until released by BOSS. This allows the BOSS to complete its 


calculations, output the results, and prepare to accept a new set of event data 


from the WORKERS. The total time for all WORKER operations for a typical 


microearthquake with ST-PT times less than 3 seconds is 10 to 20 seconds, 


depending upon FFT lengths. 


In the system architecture each WORKER is capable of addressing 64K bytes of 


memory. 


Each worker as presently configured however contains only 12K of PROM 


and 4K of RAM, for a 16K memory size. 


Also, only 12-bit analog-to-digital 


converters were readily available in CMOS at the time of the design, although 


16-bit arithmetic is used throughout the ASP. 


Integer arithmetic only, in 


twos-complement form, is used throughout WORKER software (with the exception of 


the GAMMA calculation), with division and multiplication in powers of 2 whenever 


possible. 


The FFT speed of 8 seconds for 512 points is achieved by using a 
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hardware multiplier board, designed and built in-house, with table look-ups for 


sine and cosine values. 


2.2.1.2 BOSS Routines 


BOSS as the name implies, is responsible for overall system operation, event 


discrimination, and final calculation. To maintain overall system management on 


the message bus BOSS has the highest priority (priority 0), while each WORKER is 


assigned a specific priority (e.g., the number of each WORKER on the line) to 


insure smooth handling of messages. 


Upon event detection each WORKER sends PT, PA, and PQ, which the BOSS 


stores. If enough "P-Messages" are received within a specified detection window 


the event is determined valid and P- and S-Messages (ST, SA and SQ) are recorded 


for 


another 


specified 


recording window. 


After this time BOSS begins 


calculating, depending on the modes of calculation the user has specified, 


selected from: 


(A) DEBUG; (B) EVENT COUNT; (C) B-VALUE; (D) LOCATION; (E) 


POLARITY; (F) FFT RAW DATA; (G) FFT STATION DATA; and (H) AVERAGE FFT DATA. 


Any or all of the modes can be selected and computed in any order so long as 


location parameters have been computed prior to their use in a subsequent mode. 


Because the RCA Floating Point Software has been replaced with a much faster 


Advanced Micro Devices 9511A Arithmetic Processor chip in the BOSS the 


processing time between events is less than 45 seconds when all 15 stations 


record an event. Output may be written to either a Silent 700 printer, a 


magnetic cassette, or both. 
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2.2.2 ASP Hardware 


ASP utilizes the 8-bit CMOS RCA 1802 microprocessor, a byte-oriented central 


processing unit employing the COSMAC architecture. Double precision arithmetic 


is used throughout ASP to achieve 16-bit resolution. 


The overall system is 


shown in Figures 2.2.2.a and 2.2.2.b. 


Each WORKER uses 10 different types of circuit boards, 6 designed and 


fabricated in-house, the rest are RCA products. The boards are: (1) CPU Board 


(RCA); (2) Address Latch and Bank Select (RCA); (3) I/O Decode (RCA); (4) 4K 


CMOS RAM (RCA); (5) Analog-to-Digital Converter; (6) Bus Interface 1; (7) Bus 


Interface 2; (8) PROM board; (9) 16 x 16 Multiplier; 


and (10) the Status 


Display board. With 3 PROM boards in each WORKER (12K), there are a total of 12 


boards per WORKER. 


The Analog-to-Digital Converter board uses a 12-bit CMOS Datel unit 


(ADC-HCI2B) with a Datel sample-and-hold unit (SHM-LM-2). It operates at 100 


samples/sec with a full scale input of +/- 5 volts, for a 2.5 millivolt least 


significant bit. 


The Multiplier board is the only non-CMOS board in WORKER. Based on the 
Advanced Micro Devices 25LS14 with a 25LS22 shift register, it performs a 16 x 
16 bit integer multiply in 30 microseconds, and is .powered up on demand. 


The Status Display board controls a bank of LEDs to indicate the program 


position in WORKER. The various status lights are: ACTIVE; WAITING FOR EVENT; 


P-EVENT; S-EVENT; CALCULATE FFT; ABORT; WAITING FOR END; and HOLD. 
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The BOSS hardware employs 12 different types of boards. They are: (1) two 


UART boards (RCA); 


(2) two &JUt boards (RCA); (3) I/O Decode (RCA); (4) 


Address Latch and Bank Select (RCA); (5) Bus Interface 1; (6) Bus Interface 2; 


(7) Arithmetic Processor Board; (8) Real Time Clock Interface; (9) Time-Code 


Interrupt, (10) four PROM boards; (11) Status Display; and (12) the CPU board, 


for a total of 17 boards. 


The Bus Generator board provides the 2 MHz basic clock signal to the system. 
It is crystal-controlled and provides four control signals to the system at a 10 
KHz bus message rate: latch request; source; destination; aoo transfer 


pulse. 


It also provides the ADC sample command pulse to the system at 100 per 


second. 


The system is powered by a 25 watt 12 volt to +5 volt DC-DC converter and a 


6 watt 12 volt to +/- 12 volt DC-DC converter. The power requirement of each 


microcomputer system is about 1 watt. One 12 volt automobile battery can run 


ASP for at least one day, depending on the activity level. 


2.2.3 ASP Operation 


Upon power-on or reset a prompt for user input is printed (see Figure 


2.2.3.a). 


In response the operator may choose to do nothing, which will result 


in all parameters being set to default values, or he may set the parameters to 


desired values. An "S" response will prompt a request for sampling rate, number 


of stations, and the coordinates of each station, as well as a time correction 


value for each station. Levell, Level 2, and WORKER parameters may also be set 


(relating to time values, velocity components, quality factors, trigger levels, 


15 



ASP FFT Program 
ASP Operation 


etc.). 


Modes may also be selected (see BOSS Routines Section 2.2.1.2 above). 


Settings may be changed at any time. As can be seen ASP offers flexibility in 


field procedures by providing the user with results during the experiment, in a 


real-time mode. 
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AFTER. ,TYPE: 


S TO SET STATION PARAMETERS 
U TO SET UORKER PARAMETERS 
1 TO SET LEVEL ONE PARAMETERS 
2 TO SET LEVEL TUO PARAMETERS 
P TO CONTROL PRINTOUT 
H TO SET MODE 
H TO PRINT THE ABOVE 


!! ENTER ALL NU"BERS AS FOLLOUS !! 
S"""M"SEE S=SIGN, + OR - 
"="ANTISSA, 5 DIGITS 
E=EXPONENT, 2 DIGITS 
DECI"AL POINT IS 5.M""""SEE 
FOLLOU EACH NUMBER UITH RETURN 


* S 
ENTER STATION PARA"ETERS: 
(SETS ALL OTHER PARAMETERS TO DEFAULT) 
SAMPLES/SECOND ? +1""+13 
NUKBER OF STATIONS ! +41111+11 


FOR EACH STATION, ENTER COORDINATES, 
ONE/LINE IN THE ORDER: 
SX, SY. SZ, SC 


STATIOH +1,..,+" 
+33SØØ+11 
+6ØØØØ+Ø1 
+øøøøø+øø 
+øøøøø+øø 
DATA OK (Y/N/S S-STOPS)! Y 


Figure 2.2.3.a Initial ASP Prompt Message 
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3.0 FFT/FIT PROGR
I DESIGN 


3.1 WORKER Operation 


The WORKER operation prior to the FFT/FIT call been described previously. 


To summarize - the demeaned data is written to the YP-FIFO. Upon the detection 


of a P-Wave the first word address of the P-Wave data is determined. The 


demeaned data continues to be written awaiting an S-Wave. If an S-Wave occurs 


the data is written into the YS-FIFO, the first data address of the S-Wave is 


determined, and the time difference of arrival (DT) are calculated. Then the 


FFT/FIT is called, first for the S-FFT (if it occurred), then for the P-FFT. 


3.2 FFT/FIT Requirements 


Again, some of the FFT Requirements have been mentioned already. The 


primary requirement is for speed since while the FFT/FIT is calculating the 


sensor system is off-line. Therefore coding organization and efficiency are at 


a premium. 


As will be seen (RCA 1802 Architecture Considerations Section 3.2) 


to speed operations no subroutine calls are used but control is passed through a 


register transfer. 


For speed (and mathematical accuracy) table look-ups are 


used for the trigonometric, logarithmic, and instrument correction functions. 


The FFT was designed as an In-Place Decimation-In-Frequency function. 


Real 


data was treated as Real and Imaginary pairs and unscrambled at the end. Both 


decisions (in-place and Real as Real/Imaginary) were taken to lessen the memory 


requirements. 
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The output spectrum will be FIT for Long Period Level (LPL), Corner 


Frequency (FO), and the High Frequency Slope (G

IA). The FIT programs check 


for the validity of the results, and return with an error flag if out of range. 


3.3 Mathematical Precision 


Consideration must be given as to the impact of the finite register length 


representation of the coefficients and (more importantly) the data in the 


iterative FFT algorithm. (For a mathematical treatment of this topic see 


[Kane], [Oppe72], [Oppe75], [Rabi], [Wein69a], [Wein69b], and [Welc]). The 


primary source for error in the FFT algorithm is the truncation necessary to 


assure no overflow errors in the multiply and accumulate operation of the 


butterfly calculation. 


The method utilized to achieve the maximum dynamic range in the numbers was 


to scale the data as often as possible. Prior to any calculation which operates 


on the entire FIFO the data is checked, and scaled if possible, to the maximum 


the coming operation allows while assuring there will be no overflows. This 


scaling quantity is carried through the FFT/FIT operation (TOTLSH, Total Shift). 


This is in effect a Block Floating Point numerical representation. 


Analysis of the resultant error has been calculated by Welch [Welc]. 


Theoretical Upper and Lower Bounds have been calculated and Experimental results 


for various distributions of input data have been developed. 


Listed below is 


the RMS(error) to RMS(result) ratios for the Upper Bound and the Experimental 


Output (for a random number input with zero mean and uniform distribution over 


(-1,1)) for 16-bit quanitzation. 
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RMS(error)/RMS(result) x 10 A 4 I 
+---------------------------------------+ 
N Upper Bound Experimental Result I 


------+---------------+-----------------------+ 


64 
128 
256 
512 


1.8 
2.4 
3.6 
5.2 


0.8 
1.1 
1.2 
1.4 


This error must be viewed in the context of the FIT operations to follow. 


As will be seen the first FIT function approximates the magnitude of the 


frequency components by a very rough function (see 
tAGAPX
 Section 5.2.1). Then 


the Long Period Level (LPL), Corner Frequency (FO), and the High Frequency Slope 


(GM
) will be approximated, this time on averaged data. The geophysicists on 


the project, based upon work done on a large mainframe, are comfortable that 


these approximations are not enough to cause significant error in the results. 


Based upon this opinion the trunction error was also determined to be not a 


significant factor. 


3.4 RCA 1802 Architecture Considerations 


The RCA 1802 COSMAC Architecture and instruction set is quite different from 


the more traditional microprocessors. Its primary benefit, indeed the reason 


why it was chosen, is its low power consumption. 


The CPU has the internal 


architecture shown in Figure 3.4.a. It consists of: 


- an 8-bit Accumulator (D), 


- a I-bit Carry Bit (DF), 


- an Interrupt Enable Flipflop (IE), 


- sixteen 16-bit Register Files (RO, ..., RF) any of which may serve as 
Data Registers, Pointers to Memory, or as the Program Counter, 


- a 4-bit pointer (p) to the Register File to select the Program Counter, 
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another 4-bit pointer (X) which selects the register to be used as a 
pointer to an operand in memory, 


an 8-bit Temporary Storage register (T) used to hold X and P when an 
Interrupt occurs, 


four internal Flags (EF1, ..., EF4) which are external pins on the CPU 
chip and may be tested externally, and 


an internal Flag (Q) which may be set, cleared, and tested under program 
control and which also drives an output line from the CPU chip. 


MEMORY I/O COMMAND 110 BI-DIRECTIONAL 
ADDRESS OR SERIAL DATA COMMAND DATA 8US 
(8) 
(31 (81 
(1) 
IE CONTROL 
(18) LOGIC 


(11) (41 
R(OI.O R SELECT 
INCRI R(1).O T 
DECR R(21.0 (8) 
U8} SCRATCH PAD 
REGISTERS 
R 
RIE).1 RtEtQ 
RIFI.1 R(FI.O 
(81 
B BIT BUS 


Figure 3.4.a RCA 1802 CPU Architecture 
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The Instruction Set is listed in Appendix C. 


The Instruction Set is 


relatively efficient. There are only seven 3-byte instructions, while over half 


of the instructions are i-byte. However the set is less powerful than other 


processors. 


The i6-bit register associated with some instructions is indicated by the 


generic label RN, which may be any of the registers RO to RF. Some instructions 


use a selected register as a pointer to memory. Thus M(RN) indicates the memory 


location pointed to by the register RN. In addition M(RX) indicates the memory 


location pointed to by the register which is pointed to by the Register Pointer 


x. This indexed addressing proved useful in the FFT algorithm. 


The most significant benefit the COSMAC architecture offers is the ability 


to change the program counter by simply changing the P pointer. This allows for 


very fast subroutine calls because the CPU status need not be saved for this 


transfer of control. The programmer has the obligation of course to keep track 


of the registers to assure the subroutines do not overwrite necessary data. It 


is this type of fast, tight coding which was required on the ASP FFT program and 


indeed this is the only way in which subroutines are accessed in the program 


body. 


(The only exception to this is the primary calls from FFTMN to the main 


program sections, twelve in all). 


At least two difficulties were evident in the Instruction Set with regard to 


the FFT algorithm. 


The first, which would apply to any program utilizing the 


COSl
C, is the lack of orthogonality or regularity in the instruction set. For 


example, there are four Load D operations: 


Load M(RN); 


Load M(RN) and 


Increment RN; Load M(RX); and Load M(RX) and Decrement RX. However there are 


only two Store D operations: Store to M(RN) and Store to M(RX) and Decrement 
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RX. Such lack of orthogonality or regularity makes efficient programming 


difficult. 


The second difficulty in the Instruction Set is the lack of relative 


addressing, that is pointing to memory by an increment from some base address. 


That operation occurs continually in any Signal Processing application such as 


the FFT (for example the calculation of the butterfly pair's addresses). The 


: 


requirement to continually calculate the exact address, then access it as M(RN), 


led to a significantly greater amount of coding. 


3.5 Development System Support 


Development System support was very poor. 


The 


Development 


System 


(CDP18S005) contained a 18S102 CPU, 64K of memory, and two 256K floppy disks 


(see Figure 3.5.a) downloadable to the Prototype ASP System (see Figures 2.2.2.a 


and 2.2.2.b). File management in memory and on the floppies is nonexistent. In 


all cases the programmer had to direct where the data was to go, and do it right 


or else. Careful back-up procedures were essential. A line editor was the only 


one available. 


More importantly there was no debug support provided. 


There was no 


capability for setting breakpoints, testing or setting registers and memory 


locations, or for restarting the program. Run Time code had to be developed and 
interfaced with the program with the use of manually inserted Long Branches (see 
Run Time Programs Section 6.0). These Long Branches were originally overwritten 


onto the code; later No-Operations (NOPs, HC4C4C4 for the 1802) were inserted 
at strategic locations for the breakpoints. In this way the FFT/FIT subprograms 


were cut up into manageable (debuggable) sections. These techniques later 
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Figure 3.5.8 RCA COSMAC Development System 


iraparound (see Section 6.6). 
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3.6 Programming Techniques 


3.6.1 Structured Programming 


Because of the recognition in recent years of the cost of maintenance of 


computer software, techniques have been developed to make programs more 
intelligible and modifiable. Two of the most important concepts are those of 
Structured Programming and Data Hiding. The basic idea of Structured 


Programming is the use of a Top-Down Design approach where a large program is 


divided hierarchically into smaller and smaller sections until a "primitive" 


level is reached. These primitives have a well defined entry point, a limited 


number of global and local variables to be manipulated, and a singular exit 


point. 


This is coupled with and elegant Control 


Structures 


involving 


"if...then...else", "do...while", "do...until", "case a, b, ...else", and other 


constructs. (A result of this last statement is the lack of "GDTDs" in the 


program). The code should also be self-documenting. 


Another consideration for flexible, maintainable code is the separation, as 


much as possible, of the program algorithm structure from data structure (Data 


Hiding). Data should only be manipulated at the lowest possible primitive 


level. 


This allows for later changes in either domain (algorithm or data) with 


less of an impact on the other. 


Most of these rules are broken in the FFT/FIT program. 


Top Down design, 


with modular primitives and self-documenting code, was used once it was 


appreciated (see Human Factors Section 3.7). But the control structures were 


not used - GDTDs were. Also the program structure was very closely tied to the 


... 


data structure, indeed inexorably tied to it. 
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There wer
 some good reasons for the use of this programming style. The 


FFT/FIT program was developed to be fast, tight code as opposed to the 


Structured Programming elegant, maintainable style. The heart of the FFT is not 
expected to be changed in the foreseeable future (yes . . . they all say that). 
Linking with the data structures was necessary to get the job done, and 


essential to give it any speed. Finally, there is no support for the control 


structures within the 1802 Assembly Language (and it would have been too slow to 


program it in). 


3.6.2 Numbering Notations 


Some Numbering Notations were ùsed in the program which warrant explanation. 


Some of them were supported by the Development System and are in the code; some 


are adopted and found only in the program comments. 


Numbers are represented as decimal unless preceded by the "U" sign, in which 
case they are hexadecimal. All numbers are Twos-Complement Fixed Point (usually 
16-bit), with the exception of some numbers in the FIT routines. For the Long 


Period Level a 24-bit floating point construct was adopted for the Integer and 


Exponent. For the High Frequency Slope and the Logarithmic functions there was 


an Integer/Fraction scheme. 


Variables are limited to six characters. Upper case characters only were 


allowed. (Both of these were more of a limitation to clear, understandable code 
than was expected and another violation of Structured Programming rules). To 
aid in clarity the acronym is usually defined in the program header or in the 


code close to its point of initial use. 


Program labels are any unique six 


character acronym followed by a colon (..:..). 
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Notations for Addresses are defined in the Development System as ,A(ADDR) 


for a full word address and A.l(ADDR) and A.O(ADDR) for the high and low bytes 


respectively. Similar schemes were used for Registers, R(NAME) being the data 


word in a register and R.l(NAME) and R.O(NAME) being the high and low bytes. 


Similarly DATA.1 and DATA.O represent the high and low bytes of data. 


M(ADDR) 


is the value at that memory address; this data word is often used as a pointer 
value. Therefore M(M(ADDR)) and M(R(NAME)) is the value being pointed to by the 
memory pointer or the register pointer. 


3.6.3 Programming Conventions 


Most of the Programming Conventions have been mentioned elsewhere; they are 


listed here for reader convenience. The first is the use of a common program 


header, listing the Program Constants and Global Variables. 


Versions of this 


header were maintained from one major program revision to the next, then 


modified for all sections of code. 


Registers FRP and ZAPl were addressed to the Fast RAM section U30xx, the 


location of most of the variables. This allowed for addressing the variables by 


pointing the lower register's lower byte only, thus saving instructions and 


time. 


As one concession to convenience Long Branch instructions were used instead 


of Short Branches in the subprograms. Only one more instruction byte is used 


and the speed lost was not dramatic. 


This allowed the relocation of code 


without concern for page boundaries. In the subroutines however, because they 


were called so often, Short Branches were used and care was taken to avoid page 


boundaries. 
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The traditional Call/Return sequence was not used for subroutine accesses. 


Instead the Program Counter Pointer P was directed to another register (usually 


ZAP, thus SEP ZAP) which contained the subroutine address. Upon return ZAP was 


usually left readdressed for another subroutine access. 


Interrupts by the WORKER for new data values were allowed during FFT/FIT 


computation to maintain the Long Term and Short Term Averages. Interrupts were 


disabled during multiplications however as the hardware board required the use 


of the I/O channels; interrupts would have invalidated the results. 


During Software Development patches to the code were invaluable for 


programming convenience. These were implemented in the form of Overlay Programs 


which were loaded into memory after the program code. They consisted of Long 


Branches to an unused section of memory, with the modified code resident there, 


followed by Long Branch back to the main code. (See FFTMN Section 5.0.1 for an 


example of three patches). 


3.7 Human Factors 


Comment should be made concerning the programming education which occurred 


on this project. 


This was the author's first program of any consequence (he 


would term this program large for a single programmer) and his first assembly 


language program. It was developed without much assistance and could be likened 


to learning how to swim by being thrown into the deep end of the pool. You 


finally learn how but not after much splashing about and swallowing of a lot of 


water. Then after some longer period of time you finally become kind of 


elegant. 


It is left to the discretion of the reader whether elegance was 


approached. 
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Along this line is an observation that although Top Down Design is obviously 


the correct way to develop a program it is only possible if one is capable of 


building from the Bottom Up once the lowest level is reached. That is you can't 


do it until you know how to do it, and you can't know how to do it until you do 


it. Stated another way the original sections of code do not demonstrate Top 


Down structure, if they represent any structure at all. 


Only with some 


experience can one program (or do anything) with confidence. But then Master's 


work is meant to educate, isn't it. This was a good education. 


. 
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4.0 DATA STRUCTURES 


4.1 Register Names 


Valu Name 


0000 
0003 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 


Description 


ZAP 
PC 
DSP 
FRP 
MP 
ZAP2 
ZAP 3 
ZAPI 
MA 
MQ 
AC 


RO is the Scratch Pad Register 
Normal Program Counter 
Data Stack Pointer 
Fast RAM Pointer 
Message Pointer 
Arithmetic Scratch Pad Register 
Arithmetic Scratch Pad Register 
Also used as Fast RAM Pointer 
Arithmetic Memory Address Pointer 
Arithmetic Accumulator Extension 
Arithmetic Accumulator 


4.2 Memory Allocations 


The WORKER has 12K of ROM, addressed from #0000 to #2FFF, and 4K of RAM, 


addressed from #3000 to #3FFF. See Figure 4.2.a for the System Program Maps for 


the WORKER and the BOSS. 


The Development System has 64K of memory, thus 


Development Programs and Tables can use addresses above #4000 (see the Run Time 


Programs Section 6.0). 
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WORKER 


BOSS 


SYSTEM 
MISC 
SINTP 
WORKER 
ICALC 
FIX 
WCALC 
FFT, FIT 


SYSTEM 
MISC 
SINTP 
BOSS 
I STO R 
FLOAT 
FPA 
BCONE, 
B CTWO 


XBL 807 - 7257 


Figure 4.2.a System Program Maps (WORKER and BOSS) 
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0000 - 3FFF Memory 


0000 - 2FFF ROM 


0000 - 0031 
0032 - 030F 
0310 - 16FF 
1700 - 2637 
2660 - 26F6 
26FE - 27FF 
2800 - 2BC1 
2COO - 2CD8 
2000 - 2DFF 
2EOO - 2FFF 


3000 - 3FFF RAM 


WORKER ADDRESS MAPPING 


Initialization Program 
Utility Programs 
WORKER Programs 
FFT Programs (Set #1) 
FFT Constants (SYSSET) 
TRGTBL (Trig Table) 
FFT Subroutines 
FFT Programs (Set #2) 
LOGTBL (Logarithm Table) 
INSFIX (Instrument Correction Table) 


3000 - 30FF FRAM (Fast RAM) 


3000 - 30C3 
30C4 - 30DF 
30EO - 30FF 


WORKER Variables 
FFT Global Variables 
FFT Local Variables 


30EO - 30FA 


3101 - 3370 


3371 - 3600 
3601 - 3AOO 
3A01 - 3EOO 
3EOO - 3FFF 


FIT Global Variables 


WORKER Stacks and Buffers 
(STACK, DSTACK, BUSS, UART, and MISC) 
Unused 
YPFIFO 
YSFIFO 
Unused (some DTASCL Variables) 
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4.3 Routine Locations 


4.3.1 Worker Routines 


The following WORKER routines are of use to the FFT/FIT programs. 
Addr Name Description 
---- ------ --------------------------------------- 
0033 CALL Address of Call Routine 
0043 RETN Address of Return Routine 
0050 INTP Address of Interrupt Routine 
010C XBUSS Address of Buss Transmit Routine 
0115 MOVE Address of Block Move Routine 
0118 BMESS Address of Buss Message Form Routine 


4.3.2 FFT Routines 


The following are the FFT Routines, with their memory locations. 
Addr Name Description 
---- ------ ------------------------------------ 
1700 FFTMN FFT Main 
17AO LNSET Length Set 
17AO PLNSET P-Length Set 
17A3 SLNSET S-Length Set 
18AO SCALE Scale 
18AO PSCALE P-Scale 
18A3 SSCALE S-Scale 
1900 SHAPE Shape 
1900 PSHAPE P-Shape 
1903 SSHAPE S-Shape 
1A60 FFT FFT Routine 
1COO UNSCRM Unscramble 
1D20 ORDER Order 


33 



ASP FFT Program 
Data Structures 


4.3.3 FIT Routines 


The following are the FIT Routines, with their memory locations. 


Addr 


2000 
2100 
2250 
23FO 
2COO 


Name 


MAGAPX 
SMTGMX 
CKFMAX 
GMACPT 
FOLPL 


Description 


------------------
-------------------- 


Magnitude Approximate 
Smooth and Tag Maximum 
Check FO Maximum 
GAMMA Compute 
FOLPL Compute 


4.3.4 Run Time Routines 


The following programs were used during program development and may be 


loaded into the Development System memory at locations above the WORKER 


locations (above #4000). 


System Run Functions. 


Addr 


7000 
7003 
7006 
7009 
700C 
700F 
7012 
7015 


Name 


SYSRUN 
RGPRNT 
PRGDUN 
RGDATA 
FFTRAM 
PFTDTA 
SFTDTA 
FFTDTA 


Description 


System Run (to #7400) 
Register Print, then Quit 
Program Done, so Quit 
Print Register Data 
Print FFT RAM 
Print P-FFT Data 
Print S-FFT Data 
Print FFT Data 


Input Data Forcing Functions. 


Addr Name Description 
---- ------ --------------------------------------- 
5100 LDFIFO Load FIFO (to /15244) 
5100 YPZERO Zero YPFIFO 
5103 YSZERO Zero YSFIFO 
5106 MANINP Manual Input 
5109 MODS IN Modified Sine Input 
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4.4 Stacks, Buffers and FIFOs 


4.4.1 Stacks 


The following WORKER stacks are not used by the FFT/FIT routines but are 


listed in the program headers, and are included here for completeness. 


Addr Name 


3140 
3180 


4.4.2 Buffers 


Description 


--------------------------------------- 


STACK 
DSTACK 


Stack goes downward for 64 bytes 
Data Stack goes downward for 64 bytes 


The following WORKER Buffers are listed in the FFT/FIT program headers. 


They are not directly used by the FFT/FIT routines (although the Buss Transmit 


buffer is used by the BMESS WORKER routine, which is called by FFTMN to tran
it 


the FFT/FIT results to the BOSS). 


Addr Name 


Description 


--------------------------------------- 


3181 BBUFF 


3181 
3200 
3201 
3280 


3281 
32DO 
32D1 
3320 


3321 
3370 


Begin Buffer Space 


XFWA 
XLWA 
RFWA 
RLWA 


Buss Transmit Buffer First Word Address 
Buss Transmit Buffer Last Word Address 
Buss Receive Buffer First Word Address 
Buss Receive Buffer Last Word Address 


IFWA 
ILWA 
OFWA 
OLWA 


UART Input Buffer First Word Address 
UART Input Buffer Last Word Address 
UART Output Buffer First Word Address 
UART Output Buffer Last Word Address 


SFWA 
SLWA 


String Buffer First Word Address 
String Buffer Last Word Address 
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4.4.3 FIFOs 


FIFOs are used for the recording of the (demeaned) seismometer readings. As 


described in Section 2.2.1.1 the data is written into the YPFIFO until a trigger 


is detected. Data continues to be written there until either an S-Wave is 


detected or until the event is over (no S-Wave). If an S-Wave is detected the 
data is then written into the YSFIFO. The FFT/FIT program is then called, first 
for the S-FFT (if it exists) and then for the P-FFT. 


FIFOs are defined by nine byte tables as follows: 
bytes 1,2 Address of Oldest Data (H,L) 
bytes 3,4 FIFO LWA+1 (H,L) 
bytes 5,6 FIFO FWA (H,L) 
bytes 7 8,9 FIFO Running Sum (L,M,H) 


Addr 


Name 


Description 


--------------------------------------- 


30A5 
30AE 


YPTBL 
YSTBL 


YPFIFO Table 
YSFIFO Table 


The FIFOs themselves are at... 
Addr Name Description 
------ --------------------------------------- 
3601 YPFWA YPFIFO First Word Address 
3AOO YPLWA YPFIFO Last Word Address (YPFWA + 1023) 
3A01 YSFWA YSFIFO First Word Address 
3EOO YSLWA YSFIFO Last Word Address (YSFWA + 1023) 
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WORKER Variables used by the FFT/FIT programs are contained in F

 (Fast 


RAM) . 


They are defined at the beginning of the common FFT/FIT program header, 


as shown in the listings in Appendix A. 


Addr Name 


3046 
3048 


SLAST 
DT 


4.5.2 Global Variables 


Description 


--------------------------------------- 


Time for the Last YSFIFO 
ST Minus PT 


4.5.2.1 FFT/FIT Global Variables 


Fifteen Global Variables are defined in the System Header. 


They are all 


contained in FRAM and are accessed by many of the FFT and FIT programs. 


Flags 


Add r Name 


30C4 
30C5 


PFTFLG 
BDRYOK 


Move Variables 


Addr Name 
------ 
30C6 FREELN 
30C8 FWA 
30CA HOVECT 


Length Variables 


Addr Name 
------ 
30CC PFFTLN 
30CE SFFTLN 
30DO FFTLN 


Description 


P-FFT or S-FFT Flag 
Boundary OK Flag 


Description 


--------------------------------------- 


Free Length Count 
First Word Address of Move Out FIFO 
Move Count 


Description 


--------------------------------------- 


P-FFT Length 
S-FFT Length 
FFT Length 
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Length Pointers 


Addr Name 
--- ------ 
30D2 PLNPTR 
30D4 SLNPTR 
3006 FLNPTR 


Description 


P-FFT Length Pointer 
S-FFT Length Pointer 
FFT Length Pointer 


Start Address for FFT Data 


Addr Name 
------ 
3008 BASE 
Scale Values 
Addr Name 
------ 
30DA TOTLSH 
30DC PSHIFT 
SHAPE/FFT Value 
Addr Name 
------ 
300E CSVLU 


Description 


Start Address for FFT Data 


Description 


--------------------------------------- 


Total Shift Value 
P-FIFO Shift Value 


Description 


--------------------------------------- 


Cosine Value Temporary Storage 
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4.5.2.2 FIT Global Variables 


The following FIT Global Variables are actually maintained in the FIT 


programs as Internal Variables, but since they are in all the program sections 


they should more correctly be considered Global. 


The following values are intermediate results for FIT calculations. 


Addr Name 


30EO 
30E2 
30E4 
30E6 


MXADDR 
FMAX 
MXVALU 
MXEXP 


Description 


Address of Maximum 
Frequency Index of Maximum 
Maximum Value (Integer) 
Maximum Value (Exponent .. Shift" Value) 


Values being calculated for transmittal to BOSS. 


Addr 


30E8 
30EA 
30EC 
30EE 
30FO 
30F2 


Name 


LNFFT 
FO 
GttAINT 
GMAFRC 
MXNINT 
MXNEXP 


4.5.3 Local Variables 


Description 


Length of FFT 
FO, Corner Frequency 
G
tA Integer 
GAMMA Fraction 
Maximum Energy Integer 
t1aximum Energy Exponent 


Local Variables, called Internal Variables in the Program sections, reside 


in addresses H30EO to H30FF. They are listed in those sections describing the 


individual Programs. 
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4.6 Constants 


4.6.1 FFT/FIT Constants 


A number of FFT/FIT constants are used for programming efficiency and 


flexibility. 


They involve such values as addresses, pointer values, skip 


counts, etc.. They are defined in the Program Header, as seen in any of the 


programs included in Appendix A. The values are set by the SYSSET (System Set) 


program, also in Appendix A. They occupy addresses #2660 to #26F5 in ROM. 


Addr Name 


2660 FFTTBL 


Length Set Tables 


The Length Set 
directories as 
bytes 0,1 
bytes 2,3 
bytes 4,5 
bytes 6,7 
bytes 8,9 


Addr Name 
---- ------ 
2660 PDEFLT 
266A DT128 
2674 DT600 
267E DTMAX 


P and S Shape Tables 


Description 


FFT Tables (#2660 to #27FF) 


Tables are defined by ten byte 
follows: 
DT Length Boundary 
P-Length Value 
S-Length Value 
Pointer into P-Shape Table 
Pointer into S-Shape Table 


Description 


--------------------------------------- 


Solo P-Wave Default Length 
DT <= 128 
128 < DT <= 600 
600 < DT <= 32K 


First the P-Shape Function 
bytes 0,1 Count for the 75% move 
bytes 2,3 Count for the 25% Tail Shape 
bytes 4,5 Skip count for the Trig Table 


Addr Name 


2688 
268E 
2694 
269A 


PLN64 
PLN128 
PLN256 
PLN512 


Description 


--------------------------------------- 


P-FFT Length = 64 
P-FFT Length = 128 
P-FFT Length = 256 
P-FFT Length = 512 
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Then the S-Shape 
bytes 0,1 
bytes 2,3 
bytes 4,5 
bytes 6,7 
bytes 8,9 


Addr Name 
------ 
26AO SLN128 
26AA SLN256 
26B4 SLN512 


Trig Table Directory 
Addr Name 
---- ----- 
26BE TRGDIR 
27FE TRGLW A 
26FE TRGFWA 
Bit Table Mask 


Function 
Count for the 12.5% Front Shape 
Cosine Skip Value for the 12.5% Front 
Count for the 62.5% Middle 
Count for the 25% Tail Shape 
Cosine Skip Value for the 25% Tail 


Description 


--------------------------------------- 


S-FFT Length = 128 
S-FFT Length = 256 
S-FFT Length = 512 


Description 


--------------------------------------- 


Trig Directory (with next two words) 
Trig Last Word Address (Value = #27FE) 
Trig First Word Address (Value = #26FE) 


The Bit Table Mask is used in the FFT Algorithm 
and consists of ten entries 
#0400, #0200, ..., 00080, 00040, 00000 


Addr Name 


26C2 BITTBL 


FFT Length Tables 


These Tables are 
bytes 0,1 
bytes 2,3 
bytes 4,5 
bytes 6,7 
bytes 8,9 


Addr Name 
------ 
26D6 FLN512 
26DE FLN256 
26E6 FLN128 
26EE FLN64 


Description 


Bit Table Mask 


used during the FF
 Algorithm 
Pointer to the Bit Mask Table 
Shift Count for the BITREV Routine 
Extra (unused) spaces 
Extra (unused) spaces 
Extra (unused) spaces 


Description 


--------------------------------------- 


FFT Length = 512 
FFT Length = 256 
FFT Length = 128 
FFT Length = 64 
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4.7 Tables 


Tables are used for fast data availability and accuracy. 


4.7.1 FFT/FIT Tables 


4.7.1.1 TRGTBL (Trig Table) 


TRGTBL is a listing of hex sine values for the first quarter of the sine 
wave. That is: 
sin( 2*pi*n/ 512) for n = 0 to 128 
Values range from 0 (HOOOO) to almost +1 (I/7FFF) . It is at addresses 1J26FE to 


H27FF. It is used for the SHAPE and FFT functions. 


4.7.1.2 LOGTBL (Logarithm Table) 


This is a table of Mantissa values, Base 2, for: 


log(1 + (n/128) + (1/256)) 


(Note: The 1/256 factor yields the median for the increment from one n to the 


next n). It resides at addresses H2DOO to H2DFF. 


4.7.1.3 INSFIX (Instrument Correction Table) 


The correction table is a table of 256 possible frequency entries from DC to 


50 Hz to correct for the geophone's filtering characteristics (run at 100 


samples per second). It is stored at addresses H2EOO to 1J2FFF. 


For more 


information see the CKFMAX program explanation (Section 5.2.3). 
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4.7.2 Run Time Tables 


SINWAV, a listing of a full cycle sine wave, is used to test the FFT/FIT 


operation. 


In addition two listings of earthquake data, PQUAKE and SQUAKE, are 


stored at locations 7AOO and 7BOO respectively. Trace Programs (Section 6.5) 


are used to load these into the FIFOs. 


Addr Name 


Description 


--------------------------------------- 


4000 
7AOO 
7BOO 


SINWAV 
PQUAKE 
SQUAKE 


Sine Wave (to #41FF) 
P-Quake Data (to #7A7F) 
S-Quake Data (to #7BFF) 
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5.0 FFT/FIT PROGRAM DESCRIPTION 


5.0.1 FFTMN (FFT Main) 


5.0.1.1 Function 


The FFTMN program is the master program for FFT/FIT processing. 


It is 


called by the WORKER and has two entry points, one for a P-FFT, and one for a 


S-FFT. Upon transmitting the results to the BOSS it returns control to the 


WORKER. 


5.0.1.2 Calling Program 


FFTMN is called by WORKER. 


5.0.1.3 Inputs 


There are few inputs for this program. 


Returned from the CKFMAX (Check 


FMAX) is a flag signifying FMAX validity. There are also the FIT values (see 


the Internal Variables Section following). 


5.0.1.4 Internal Variables 


The following are actually FIT Global Variables but are maintained in the 


programs as Internal Variables. They are being calculated for transmittal to 


BOSS. 


Addr Name 


Description 


30E8 
30EA 
30EC 
30EE 
30FO 
30F2 


LNFFT 
FO 
GMAINT 
GMAFRC 

fXNINT 
MX.NEXP 


Length of FFT 
FO, Corner Frequency 
GAMMA Integer 
GAMMA Fraction 
Maximum Energy Integer 
Maximum Energy Exponent 
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5.0.1.5 Subroutines Used 


All subroutine programs are called from this program. In addition BMESS 
(Buss 11essage Formation) and XBUSS (Transmit Buss) routines are utilized for 
transmitting the results to the BOSS. 


5.0.1.6 Output 


The FIT variables listed above are transmitted to the BOSS. 


5.0.1.7 Description 


Upon entry it calls the subprograms uniquely (for P-FFT or S-FFT) for the 


LNSET (Length Set). SCALE and SHAPE routines, and then in common for the 


remaining programs: FFT, UNSCRM, ORDER, MAGAPX, SMTGMX. CKFMAX, GMACPT, and 


FOLPL. 


At the end of the computations the results are sent to the BOSS using the 


B
ESS and XBUSS transmit routines. 


First one byte is sent to identify the 


message: either a toF" for a P-FFT or a toG" for a S-FFT. Then the six words of 


information are sent. 


It should be mentioned that there are two potential scenarios where 
impossible data will work as a flag for out of bounds resul ts. First, if the 
envelope did not resul t in a usable spectra ( the F
1AX , Frequency of 
ximum 


Energy, value is too close to DC or too high a frequency), the FFTMN program 


will skip GMACPT (Gamma Compute) and FOLPL (FO and Long Period Level) 
computations and return with I. Fl' or "G", length of the FFT, FMAX (not FO), 
MXNINT and MXNEXP correct, and zeros for GMAINT and GMAFRC ( that is, as error 


flags). 


Secondly, if the GMACPT routine results in an invalid result (GAMMA 
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less than 1.0) the FOLPL computation will be skipped and the length of the FFT, 


Ft1AX, MXINT and MXEXP results returned as above. The out of range GAJrnA will be 


its own flag. 


There are three patches in this routine. The first and last patches are 


fixes for a problem involving the SHOLD value with the P-FFTs. SHOLD is the 


value that allows or prevents the WORKER from logging seismographic entries into 


the YSFIFO. 


For the P-FFT the YSFIFO is used for the in-place computation and 


thus SHOLD should be set to prevent data overwrite. This was not done in the 


WORKER and must be set, and later cleared here. The middle patch is necessary 


to cover a programming error for flag passing for CKFMAX results. 


The patches 


were left in because of a lack of time for recoding. 
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5.1 FFT Programs 


5.1.1 LNSET (Length Set) 


5.1.1.1 Function 


This function sets the P-FFT flag, the Length Values, the Length Pointers, 


and the BASE value for the FFT routine. If a P-FFT has been called and there 


has been no S-Wave detection then the default is set: 


P-LENGTH =- 128 


Otherwise the rules are based on the time difference of arrival of the P- 


and S-Waves (DT). 


DT (=- 128 
128 ( DT (=- 600 
600 ( DT <= 32K 


P-LENGTH = 64 
P-LENGTH .. 128 
P-LENGTH = 256 


S-LENGTH = 128 
S-LENGTH = 256 
S-LENGTH = 512 


5.1.1.2 Calling program 


LNSET is called by FFTMN. There are two entry points, one for a PLNSET 


(P-Length Set) and one for a SLNSET (S-Length Set). 


5.1.1.3 Inputs 


The input values are DT, YP- or YS-OLDEST (the arrival time of the Wave), 


and SLAST (a flag for whether an S-Wave has been detected). 
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5.1.1.4 Internal Variables 


There are no Internal Variables. 


5.1.1.5 Subroutines Used 


No subroutines are used. 


5.1.1.6 Outputs 


This function sets the PFTFLG (P-FFT Flag), the Length Values, the Length 


Pointers, and the BASE value for the FFT routine. 


5.1.1.7 Description 


The first task for either a P or a S FFT is to check the OLDEST pointer for 


having been run past the end of the FIFO (to LWA+1). This could occur because 


of a difference in testing for out of bounds addresses between the WORKER and 


the FFT programs (testing before vs. after use, see the Problems Section 6.6). 


The pointer is reset to the FIFO FWA if necessary. 


The P-FFT flag is set true for a P-FFT, false for a S-FFT. 


The Length 


Values and Pointers are then set based upon the rules. The BASE value is set to 


the First Word Address of the data to be FFT'd. If it is a P-FFT the data will 


be moved to the YSFIFO, thus BASE = YSFWA. If it is a S-FFT the FFT will be 


done In-Place, thus BASE 2 YS-OLDEST. There are four sections to the program, 


as listed: 


48 



ASP FFT Program 
FFT/FIT Program Description 


PLNSET: (P-Length Set) 


Check for YP-OLDEST at YPLWA+1, If past end 
Then point YP-OLDEST at YPFWA 


Set PFTFLG True (OFF) 


Check for an S-Wave, if SLAST (> HOOOO (Flag for an S-Wave) 
Then Goto DTCHK 
Else (No S-Wave) Point to P-FFT - 128, Goto STPSLN 


SLNSET: (S-Length Set) 


Check for YS-OLDEST at YSLWA+1, If past end 
Then point YS-DLDEST at YSFWA 


Set PFTFLG False (100) 


DTCHK: (DT Check) 


Get DT into R(ZAP3) 


Test DT, and increment pointer, until (2 Boundaries 


STPSLN: (Store P-Length and S-Length Pointers) 


Store Length Values and Pointers 


If P-FFT 
Then set BASE 2 YSFWA 
Else set BASE 2 YS-OLDEST 


Exit 
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5.1.2 SCALE 


5.1.2.1 Function 


This routine scales the P-FFT or the S-FFT data in the FIFO to the maximum 


via the use of the DTASCL (Data Scale) subroutine. 


5.1.2.2 Calling Program 


SCALE is called by FFTMN. There are two entry points, PSCALE for a P-FFT, 


and SSCALE for an S-FFT. 


5.1.2.3 Inputs 


The primary input is the time series data in the FIFO. 


Additional inputs 


are the P- or S-FFT Length and the YP- or YS-OLDEST address. 


5.1.2.4 Internal Variables 


There are no Internal Variables. 


5.1.2.5 Subroutines Used 


DTASCL (Data Scale) is used to scale the FIFO Data to the maximum values. 
I 


5.1.2.6 Output 


The outputs are the data in the FIFO, correctly scaled, TOTLSH (Total Shift 


Count) and, if it was a P-FFT, PSHIFT (P-Shift Count). 
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5.1.2.7 Description 


The SCALE routine initializes the TOTLSH (Total Shift Counter) to zero and 


then sets the registers to call the DTASCL (Data Scale) subroutine, allowing the 


maximum scaling to #7FFF (positive) or '8000 (negative). Upon return, if the 


call had been for a P-FFT, the TOTLSH value is passed to the PSHIFT (P-FIFO 


Shift Value) register. (Note: This is the only time a scaling occurs in the 


YPFIFO, and is the reason for keeping special track of the shift value. 
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5.1.3 SHAPE 


5.1.3.1 Function 


A Windowing Function needs to be applied to the Time Domain data prior to 


performing the FFT to minimize the Frequency Leakage inherent in a Sampled Data 


system. The Shaping routine shapes the data by the Raised Cosine Bell function, 


that Is: 


Output = Input * {1/2 * [1 - cos(2*pi*n/Length FFT)]} 


This is done for 12.5% of the front of the YS-FIFO and for 25% of the tail 


of both the YP- and YS-FIFO. (These values were set by the seismologists after 


extensive simulation on the LBL mainframe). Also at this time the YPFIFO data 


will be moved to the YSFIFO if a P-FFT has been called. 


5.1.3.2 Calling Program 


SHAPE is called by FFTMN. There are two entry points, PSHAPE for a P-FFT, 


and SSHAPE for an S-FFT. 


5.1.3.3 Inputs 


The primary input is the time component data in the FIFO. Additional inputs 


are the P- or S-FFT Length and the YP- or YS-OLDEST address. 
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5.1.3.4 Internal Variables 


CSPTR (Cosine Pointer) is used to address the Cosine value as it is 


incremented through the Cosine table. 


Addr Name 


Description 


--------------------------------------- 


30EC CSPTR 


Cosine Pointer 


5.1.3.5 Subroutines Used 


The P-SHAPE routine uses the BDRYST (Boundary Set) and BDRYCK (Boundary 


Check) subroutines for the 75% move. The BDRYST is reinitialized for the 25% 


shape. The SHPSET (Shape Set) routine sets up the cosine value, incremented by 


a table skip count. 


The multiplication is done by CSMULT (Cosine Multiply). 


Values for the indices are set from the P-SHAPE tables, via PLNPTR (P-Length 


Pointer). 


The S-SHAPE routine also calls BDRYST and BDRYCK, twice, once for each 
shape. SHPSET and CSMULT are used, with new table SKIP counts. The new entry 
in this case is the 67.5% center skip count ( the amount of the FIFO left 
unshaped). S-SHAPE tables are pointed to b
r SLNPTR (S-Length Pointer). 


5.1.3.6 Output 


The only output is the time series data in the YSFIFO, shaped by the raised 


cosine bell function. 
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5.1.3.7 Description 


The algorithms are slightly different for the P-FFT than for the S-FFT. For 


the P-FFT the data is moved from the YPFIFO to the YSFIFO. The first 75% of the 


data is moved untouched. The last 25% is shaped with the raised cosine bell 


[1/2 


1/2(cos(2*pi*n/N))]. 


For the S-FFT the operation is done in-place and 


the first 12.5% and the last 25% are shaped with the center 62.5% left 


untouched. The program is as follows: 


PSHAPE: (P-FFT Shape) 


Initialize Pointers 


Call BDRYST for Move BDRYOK (Boundary OK) and FREELN (Free Length) 


75% Uove 


Move 75% of YPFIFO data to YSFIFO, Checking for Address Wraparound 
(If Address 
 YPLWA+1 
Then Address 
 YPFWA) 


25% Shape 


Call BDRYST for Shape BDRYOK and FREELN 


Get Pointer to Cosine Value 


GTCSVL: (Get Cosine Value) 


Call SHPSET (Shape Set) to get Cosine Value into CSVLU 


Calculate [(-1/2 cas) + 1/2] 


Multiply by YPFIFO Data, Store into YSFIFO 


Call BDRYCK to Test for Wraparound, if Address = YPLWA+l 
Then Set Address = YPFWA 


If Not Done, 
Then Goto GTCSVL 


Exit 
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SSHAPE: (S-FFT Shape) 


Initialize Pointers 


Call BDRYST for 12.5% Shape BDRYOK and FREELN 


Get Pointer to Cosine Value 


SHDSHP: (S-FFT Head Shape) 


Call SHPSET (Shape Set) to get Cosine Value into CSVLU 


Calculate [(-1/2 cos) + 1/2] 


Multiply by YSFIFO Data, Store into YSFIFO 


Call BDRYCK to Test for Wraparound, if Address 2 YSLWA+1 
Then Set Address a YSFWA 


If Not Done, 
Then Gato SHDSHP 


62.5% Skip 


Add 62.5% Count to Pointer 


Check for Address Wraparound, If > YSLWA+1 
Then Set past YSFWA 


25% Shape 


Call BDRYST for 25% Shape BDRYOK and FREELN 


Get Pointer to Cosine Value 


STLMTH: (S-FFT Tail Shape Math) 


Call SHPSET (Shape Set) to get Cosine Value into CSVLU 


Calculate [(-1/2 cos) + 1/2] 


Multiply by YSFIFO Data, Store into YSFIFO 


Call BDRY

 to Test for Wraparound, if Address = YSLWA+1 
Then Set Address = YSFWA 


If Not Done, 
Then Goto STLMTH 


Exit 
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5.1.4 FFT 


5.1.4.1 Function 


The real data will be treated as if it were complex data (Real and 


Imaginary). 


This will require the Reordering function to be run after the 


completion of the FFT (and after the Unscrambling). 


The heart of the FFT algorithm is the generation of new data columns from 


the old columns by the equations: 


Yn(k) = Yo(k) + [W(p) * Yo(k+(N/2))] 
Yn(k+(N/2)) · Yo(k) - [W(p) * Yo(k+(N/2))] 


Where: 
Yn 
Yo 
W(p) 


is the New Column 
is the Old Column (both Complex Data) 
is [cos(2*pi*p/N) + j*sin(2*pi*p/N)] (also Complex) 


And: 
k and p are index values 
N is the length of the FFT 


Expanding the Complex Data to Real and Imaginary components, 
written in the Algorithm Nomenclature: 


M(LOREAL) = M(LOREAL) + TREAL 
M(LOIMAG) - M(LOlMAG) + TIMAG 
M(HIREAL) = M(LOREAL) - TREAL 
M(HllMAG) - M(LOlMAG) - Tlt1AG 


These are the Quad Values referred to below, where: 


TREAL = [M(HIREAL) * CSVLU)] + [M(HIlMAG) * M(SNPTR)] 
TIMAG = [M(HIIMAG) * CSVLU)] + [M(HIREAL) * M(SNPTR)] 


These are the Temporary Values referred to below. 
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This is computed for the 0 column, then for the 1 column, then for the 2 
column, etc. up to the E column where N 2 2 A (E-2). (The FFT is done on pairs of 
complex data at a time, that is four values, thus the 2 A 2 reduction in the 
number of columns). 


5.1.4.2 Calling Program 


FFT is called by FFTMN. 


5.1.4.3 Inputs 


The primary input is (modified) time series data in the FIFO. 


Additional 


inputs are FLNPTR, with the FFT Length, PFTFLG, the PFFT/SFFT Flag, and the BASE 


address of the data in the FIFO. 


5.1.4.4 Internal Variables 


Addr Name 


30EO 
30E2 
30E4 
30E6 
30E8 
30EA 
30EC 
30EE 
30FO 
30F2 
30F4 
30F6 
30F8 
30FA 
30FC 


COLPTR 
NDBTPT 
CPBTPT 
ENDBIT 
COLBIT 
TRGCTR 
CSPTR 
SNPTR 
TRGPTR 
LOREAL 
LOIMAG 
HIREAL 
HI IMAG 
TREAL 
TIMAG 


Description 


--------------------------------------- 


Column Pointer 
End Bit Pointer 
Column Bit Pointer 
End Bit Value 
Column Bit Value 
Trig Counter Value 
Cosine Pointer Value 
Sine Pointer Value 
Trig Pointer Value 
Low Real Address Pointer 
Low Imaginary Address Pointer 
High Real Address Pointer 
High Imaginary Address Pointer 
Temporary Real Value 
Temporary Imaginary Value 


How they are used is described below: 


CLBTPT (Column Bit Pointer) 
Points to Bit Mask Table 
Starts at size of FFT (512 = #0400, 256 2 #0200, 128 = #0100, 
64 = 110080) 
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At start of column goes to next Bit Mask Table entry 
(#0400 to #0200, #0200 to #0100, #0100 to #0080, #0080 to #0000) 
If new value a #0000, then FFT done. 


COLBIT (Column Bit) 
Receives value from Bit Mask Table 
Used to compute high pair of new "Quads" address 
Helps see if element of pair cone (see COLPTR) 
Updates COLPTR if pair done. 


COLPTR (Column Pointer) 
At new column starts at #0000 
Points at each new element of array 
(updated by 4 each time to next Real Value) 
Used to compute new quad's address 
Checks to see if pair done (if COLBIT picks "1" in COLPTR 
Then update COLPTR by COLBIT (COLPTR a COLPTR + COLBIT) 


NDBTPT (End Bit Pointer) 
Points to bit Mask Table (512 a #0400, 256 a #0200, 128 a #0100, 
64 a 110080) 
Value pointed to will mark end of column to updated COLPTR 
Does not change for FFT 


ENDBIT (End Bit) 
Receives Bit Mask Table value in NDBTPT (End Bit Pointer) 
l
rks end of column 


The following TRIG variables are passed between the FFT routine and 
the TRGSET (Trig Set) subroutine. 


TRGCTR (Trig Counter) 
Starts at #0000 
Every time skips over "Done Half" of Pairs it increments by 2 


TRGPTR (Trig Pointer) 
Bit reversal of TRGCTR 
Used to compute Trig Values 


SNPTR, CSPTR (Sine and Cosine Table Pointers) 
Set by TRGSET 
SNPTR = TRGFWA + TRGPTR (Trig Table First Word Address + Pointer) 
CSPTR 3 TRGLWA - TRGPTR (Trig Table Last Word Address - Pointer) 


LOREAL, LOIMAG, HIREAL, HIIMAG 
Low and High, Real and Imaginary Pointers to Quad of Data for 
Butterfly Computations 


TREAL, TlMAG 
Temporary locations for multiplication results, prior to adding 
and subtracting from previous columns low data pair. 
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5.1.4.5 Subroutines Used 


TRGSET (Trig Set) is used for computing Trig Pointers and Values. 


DTASCL 


(Data Scale) is used to scale the FIFO Data to the maximum values. ADDSTF (Add 


and Stuff) is used to calculate the LOREAL and LOIMAG or the HIREAL and HIIMAG 


addresses. WRPTST (Wraparound Test) is used to test for Y-FFT address locations 


past the end of the FIFO. CSMULT and SNMULT (Cosine and Sine Multiply) are used 


to multiply the values. NEWVAL (New Value) is used to compute the store the new 


values for LOREAL and HI REAL or LOIMAG and HIIMAG. 


5.1.4.6 Output 


The only output is the data in the FIFO, now modified as frequency 


components, but yet to be Unscrambled and Reordered. 


5.1.4.7 Description 


The FFT routine is quite involved. A lot of effort has gone into optimizing 


it for speed by taking advantage of the symmetries available at the bit level. 


There are nine sections and they proceed as follows: 


BIT/pTR SET: 


Initialize Pointers, Masks, and Counters for Start 


NEWCOL: (New Column) 


You're now at a new Column 


Reinitialize/Increment Pointers, Masks, and Counters 


Test for Done, If Done 
Then Goto DUNFFT 


Get new Trig Pointers and Values 
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MAGNITUDE CHECK: 


Check for Maximum Dynamic Range 


PRSKCH: (Pair Skip Check) 


You're at a new Pair 


Check to see if Pair is Last Half of Done Quad, if Not Done 
Then Goto QDADDR 


Else get new Quad's Address 


Check to see if Column Done, if Done 
then Goto NEWCOL 


Get new Trig Pointers and Values 


QDADDR: (Quad Address) 


Compute new Quad's Addresses 


If S-FFT 
Then Check for Address Wraparound, Correct if Necessary 


TRGMLT: 


Compute Temporary Values (TREAL, TIMAG) shown above 


ADD TRIG: 


Update Quad (LOREAL, LOIMAG, HIREAL, HIIMAG) as above 



nQUAD: 


Get to Next Quad 


Goto PRSKCH: 


DUNFFT: 


Exit 
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5.1.5 UNSCRM (Unscramble Data) 


5.1.5.1 Function 


A result of the Decimation-In-Frequency FFT algorithm is that the data is 


left addressed in Bit-Reversed Scrambled order (see the TRGSET/SHPSET Section 


5.3.5.1 for an explanation of the Bit-Reversal operation). 


This routine 


Unscrambles the data by address, resulting in correctly Ordered data. 


5.1.5.2 Calling Program 


UNSC&
 is called by FFTMN. 


5.1.5.3 Inputs 


The primary input is frequency component data in the FIFO. 


Additional 


inputs are FLNPTR, with the FFT Length, the ENDCNT, the End Count, PFTFLG, the 


PFFT/SFFT Flag, and the BASE address of the data in the FIFO. 


5.1.5.4 Internal Variables 


Addr Name 


Description 


--------------------------------------- 


30EO 
30E2 
30E4 
30E6 
30E8 
30EA 
30EC 
30EE 


ENDCNT 
SHFCNT 
NMPTR 
SWPTR 
NMREAL 
NM I MAG 
SWREAL 
SWIMAG 


End Count 
Shift Count 
Normal Pointer 
Switched Pointer 
Normal Real Index 
Normal Imaginary Index 
Switched Real Index 
Switched Imaginary Index 
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They are used as follows: 


ENDCNT (End Count) 
Will contain number to compare against NMPTR for done 
Either #0400, #0200, #0100, or #0080 for FFT Length 
 
512, 256, 128, or 64 


SHFCNT (Shift Count) 
Shifting count for bit-reversal routine 
Either #OOOC, #OOOB, nOOOA, or 10009 for FFT Length 
 
512, 256, 128, or 64 


NMPTR and SWPTR (Normal and Bit-Reversed Pointers for Arrays) 
NMPTR is also tested against ENDCNT for done 


NMREAL, NMlMAG, SWREAL, and SWIMAG 
Will contain Addresses of Quad Data for Switching Operation 


5.1.5.5 Subroutines Used 


WRPTST (Wraparound Test) is used to test for Y-FFT address locations past 


the end of the FIFO. ADDSTF (Add and Stuff) is used to calculate the LOREAL and 


LOlMAG or the HIREAL and HIIMAG addresses. The UNSCRM routine also contains its 


own BITREV Internal Subroutine, which performs the Bit Reversal a variable 


number of shifts (as opposed to the TRGSET Fixed Shift Bit Reversal). 


5.1.5.6 Output 


The only output is the data in the FIFO, correctly reshuffled. 


5.1.5.7 Description 


There are five sections of the program, and the Internal Subroutine. They 


proceed as follows: 
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INITIALIZE: 


Initialize Counters and Pointers 


GOSHFT: (Go Shift) 


You're at new Address Pair 


SWPTR 2 BITREV(NMPTR) 


Check for Quad already Done, If Done 
Then Goto PTRUP 


QDADDR: (Quad Addresses) 


You're at known good Quad 


Compute Address Pointers NMREAL, NMIMAG, SWREAL and SWI
1AG 


If S-FFT 
Then check for Address Wraparound, Correct if Necessary 


MEMSWP: (Memory Swap) 


Here the data is switched 
NMREAL with SWREAL, and 
NMIMAG with SWIMAG 


PRTUP: (Pointer Up) 


Increment Pointer to Next Pair 


Check for Done, If Not Done 
Then Goto GOSHFT 


Exit 


BITREV: (Bit Reversal Internal Subroutine) 


Shift Normal Pointer into Switched Pointer 
Do SHFTCT (Shift Count) Times 


Return via Reset to PC 
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5.1.6 ORDER (Column Reorder) 


5.1.6.1 Function 


A result of splitting the (2*N) Real Time Series Data into Two N Series 


(Real and Imaginary) and then Transforming the N Series is that is that the 
output is ordered as per the Split Series, not the Original. To regain the 
original, reorder as follows (see [Brig], pg. 169): 


2*Xr(n) 
 [R(n)+R(N-n)] 
+ {cos[2*pi*n/(2*N)] * [I(n)+I(N-n)]} 
- {sin[2*pi*n/(2*N)] * [R(n)-R(N-n)]} (1) 


2*Xi(n) 
 
- {sin[2*pi*n/(2
N)] 
- {cos[2*pi*n/(2*N)] 


[I(n)-I(N-n) ] 
* [I(n)+I(N-n)]} 
* [R(n)-R(N-n)]} 


(2) 


for n 
 [0, 1, ..., (N-l)] 


5.1.6.2 Calling Program 


ORDER is called by FFTMN. 


5.1.6.3 Inputs 


The primary input is the frequency component data in the FIFO. 


Additional 


inputs are FLNPTR, with the FFT Length, PFTFLG, the PFFT/SFFT Flag, and the BASE 


address of the data in the FIFO. 
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5.1.6.4 Internal Variables 


The following Internal Variables are used in the routine: 


Addr Name 


30EO 
30E2 
30E4 
30E6 
30E8 
30EA 
30EC 
30EE 
30FO 
30F2 
30F4 
30F6 
30F8 


LOREAL 
LOIMAG 
HIREAL 
HIIMAG 
TRGINC 
LOS IN 
LOCOS 
RLADD 
RLSBLH 
RLSBHL 
IMADD 
IMSBLH 
IMSBHL 


Description 


--------------------------------------- 


Low Real Address Pointer 
Low Imaginary Address Pointer 
High Real Address Pointer 
High Imaginary Address Pointer 
Trig Increment 
Low Sine Value 
Low Cosine Value 
Real Add 
Real Sub Low - High 
Real Sub High - Low 
Imaginary Add 
Imaginary Sub Low - High 
Imaginary Sub High - Low 


5.1.6.5 Subroutines Used 


WRPTST (Wraparound Test) is used to test for Y-FFT address locations past 


the end of the FIFO. DTASCL (Data Scale) is used to scale the FIFO Data to the 


maximum values. The ORDER routine also contains two Internal Subroutines; 


COMBO for doing LO!HI-REAL!IMAG math and storage, and ORDMLT, the ORDER 


multiply. 


5.1.6.6 Output 


The only output is the data in the FIFO, now correctly organized as Real and 


Imaginary components. 
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5.1.6.7 Description 


The Column Reorder routine proved to be a complicated program. It is quite 


involved, as it does not have the symmetry which characterized the FFT. It is 


therefore very large (the body of the program is 609 bytes, versus 372 bytes for 


the FFT). 


In order to simplify the trigonometric computations it is recognized that 


trig entries for nand (N - n) are equal for the sine function and opposite for 


the cosine function. Substituting (N - n) for n, equations (1) and (2) may be 


rewritten: 


2*Xr(N-n) 2 [R(N-n)+R(n)] 
+ {coS[2*pi(N-n)/(2*N)] * [I(N-n)+I(n)]} 
- {sin[2*pi(N-n)/(2*N)] * [R(N-n)+R(n)]} (3) 


2*Xi(N-n) - 
- {sin[2*pi(N-n)/(2*N)] 
- {cos[2*pi(N-n)/(2*N)] 


[I(N-n)+I( n)] 
* [I(N-n)+I(n)]} 
* [R(N-n)+R(n)]} 


(4) 


Using the facts that: 


sin[pi(N-n)/N] 
 
cos[pi(N-n)/N] 8 - 
[R(N-n)-R(n)] 8- 


sin[ pi( n/N) ] ; 
cos[pi(n/N)]; and 
[R(n)-R(N-n)] 


Equations (3) and (4) can be rewritten: 


2*Xr(N-n) =- 
- {cos[2*pi*n/(2*N)] 
+ {sin[2*pi*n/(2*N)] 


[R(n)+R(N-n)] 
* [I(n)+I(N-n)]} 
* [R(n)-R(N-n)]} 
[I(N-n)-I(n)] 
* [I(n)+I(N-n)]} 
* [R(n)-R(N-n)]} 


(5) 


2*Xi(N-n) = 
- {sin[2*pi*n/(2*N)] 
- {cos[2*pi*n/(2*N)] 


(6) 
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Now grouping these equations around their common trig factors, using 


equations (1) and (2) for the lower components and equations (5) and (6) for the 


higher components, they can be rewritten in a general sense, using the following 


program variables. 


(The data will be allowed to be scaled by 2; this factor 


will be included later in the SMTGMX program - see Section 5.2.2.7). 


LOREAL ... RLADD + (LOCOS * IMADD) - (LOSIN * RLSBLH) (7) 
LOIMAG ... ll1SBLH - (LOSIN * IMADD) - (LOCOS * RLSBLH) (8) 
HIREAL ... RLADD - (LOCOS * IMADD) + (LOSIN * RLSBLH) (9) 
HIIMAG ... IMSBLH - (LOSIN * IMADD) - (LOCOS * RLSBLH) (10) 


Where, for n'" 1,2, ..., [(N/2)-1]: 


LOCOS ... cos[2*pi*n/(2*N)] 
LOSIN - sin[2*pi*n/(2*N)] 
LOREAL ... R(n) 
LOIMAG ... I(n) 
HIREAL ... R(N-n) 
HIIMAG ... I(N-n) 
RLADD ... LOREAL + HIREAL 
RLSBLH ... LOREAL - HIREAL 
RLSBHL ... HIREAL - LOREAL 
IHAnD ... LOIMAG + HIIMAG 
IMSBLH ... LOIMAG - HIIMAG 
IMSBHL ... HIIMAG - LOIMAG 


These variables are used in the routine. In addition there is a TRGI
C 


value, used for moving through the Trig Table. 


It should be noted that there are two special cases not covered correctly by 


equations (7) to (10). From equations (1) and (2), for n ... 0: 


2*Xr(0) ::a [R(O)+R(N) ] 
+ { co s [0 ] * [I(O)+I(N)]} 
- {sin[O] * [R(O)-R(N)]} 
2*Xi(O) ... [I(O)-I(N)] 
- {sin[O] * [I(O)+I(N)]} 
- {cos[O] * [R(O)-R(N)]} 


(11) 


(12) 
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Therefore, remembering R(O) - R(N) and 1(0) - I(N): 


2*Xr(0) - 2[R(0)] + 2[1(0)] 
- 2[R(0) + 1(0)] (13) 
2*Xi(0) - 0 (14) 


This is not the result which is obtained from the generalized equations. 


They will be covered uniquely in the program, prior to the general function. 


The other exception, for n - (N/2), will be explained after the program 


description. 


The routine has ten sections and two subroutines. Control is as listed: 


INITIALIZE: 


Initialize Trig and FIFO Pointers and Increment Values 


SCALE DATA: 


Scale Data for Maximum Dynamic Range 


SET ADDRESSES: 


Set Addresses LOREAL, LOIMAG, HIREAL and HllMAG 


Check for Address Wraparound, Correct if Necessary 


CMPZRO: (Compute Zero Values) 


Compute LOREAL(O) and LOlMAG(O) Values and Store 


Goto LOUP 


MIDSIX: (Compute Six Middle Values) 


Compute RLADD) RLSBLH) RLSBHL) lMADD, IMSBLH and IMSBHL values 


STORE VALUES: 


Compute and Store the Final Values LOREAL) LOlMAG, HIREAL and HllMAG 
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INCREMENT/DECREMENT TRIG POINTERS: 


Increment/Decrement Trig Pointers 


Check for Done, If Done 
Then Goto FIXHLF 


LOUP: (LOREAL and LOIMAG FIFO Pointers Up) 


Increment/Decrement FIFO Pointers 


Compute new LOREAL, LOIMAG, HIREAL and HIIMAG Addresses 


If S-FFT 
Then check for Address Wraparound, Correct if Necessary 


Goto MIDSIX 


FIXHLF: (Fix Half Values) 


Divide I(N/2) by two for Correction 


NDODRD: (End Order) 


Exit 


--------------------------------------------------------------------------- 


COHEO: (Combine LO/HI-REAL/IMAG Internal Subroutine) 


Compute HI-LO, LO-HI, and LO+HI Values 


Store Them 


Return via Reset to PC 


ORDMLT: (Order Multiply Internal Subroutine) 


Compute M(M(R(ZAP1))) * M(R(MQ)) -) R(ZAP3) 


Return via Reset to PC 
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As mentioned, the FIXHLF routine corrects the values for the N/2 entries. From 


equations (1) and (2), for n - N/2: 


2*xr(N/2) ::a 
+ {cos[2*pi*(N/2)/(2*N)] 
- {sin[2*pi*(N/2)/(2*N)] 
2*Xi(N/2) .. 
- {sin[2*pi*(N/2)/(2*N)] 
- {cos[2*pi*(N/2)/(2*N)] 


[R(N/2)+R(N-(N/2))] 
* [I(N/2)+I(N-(N/2))]} 
* [R(N/2)-R(N-(N/2))]} 
[I(N/2)-I(N-(N/2))] 
* [I(N/2)+I(N-(N/2))]} 
* [R(N/2)-R(N-(N/2))]} 


(15) 


(16) 


Since cos(pi/2) .. [R(N/2)-R(N/2)] =- [I(N/2)-I(N/2)] ::a 0, and sin(pi/2) = 1, 


equations (15) and (16) become: 


2*Xr(N/2)::a 2[R(N/2)] (17) 
2*Xi(N/2) = - 2[I(N/2)] (18) 


As computed in the routine for n .. (N/2) case, nREAL(N/2)n is left with 


2*[n R EAL n ], the correct entry (almost by luck). The result for nIMAG(N/2)'" is 


-4* ["" IMAG n ]. As seen from above (18) this is twice as large as desired, thus 


the correction. (Note: this correction after the fact was determined to be the 


best way to implement this non-general calculation, in that the address pointers 


were in-place automatically. It may not be pretty but it works). 
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5.2 FIT Programs 


What is desired of the FIT Programs is to fit the P- or S-Wave Spectra for 


the amplitude response of a V-pole low-pass Butterworth filter: 


AO 
A = ------------------- 
[1 + (f/fO)-2V]-O.5 


Figure 5.2.a shows the computation implemented for two separate events. 


Shown are the original time series x(ti), the demeaned time series x'(ti), PT 


and ST arrival times, and the resulting P- and S-Wave spectra. From this can be 


seen the fitted filter response for Long Period Level (LPL), Corner Frequency 


(FO), and High Frequency Slope (GAJfl1A). 


The required operations will be implemented in the following order, via the 


referenced routines: 


MAGAPX: (Magnitude Approximate) 


(1) Approximate the Magnitude of the Frequency Components from the Real and 
Imaginary values. 


SMTGMX: (Smooth and Tag Maximum) 


(2) Smooth the Magnitude Function with an Eight-Point Average. 


(3) Select the Haximum Magnitude Value. Save the Index as FMAX, and the 
Value as MXVALU and MXEXP. 


CKFMAX: (Check FMAX) 


(4) Correct the Maximum Value for Geophone Frequency Response, Geophone 
Gain and Amplifier Gain. Save as MXNINT and 

EXP. 


(5) Check for Valid Event, i.e. verify F
 Index not too Low nor too High. 
Exit with OK or Error Flag. 


GMACPT: (GAMMA Compute) 


(6) Compute spectra High Frequency Slope. 
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FOLPL: (FO and Long Period Level Calculation) 


(7) Check for valid GAMMA, return with error Flag if out-of-bounds. 
Calculate FO and Long Period Level based upon FMAX index and spectra 
value. 


5.2.1 MAGAPX (Magnitude Approximate) 


5.2.1.1 Function 


For the fitting program the data will required to be in the Magnitude/Phase 


form. 


(Phase information is not required at this time and will be stored as 


"0"). The magnitude is of course: 


Magnitude = [(R A 2) + (I A 2)]A(1/2) 


In a microprocessor however a square root algorithm is a non-trivial function 


(especially without divide hardware), and requires some memory and a lot of 


time. It has thus been determined by the seismologists that an approximation 


routine is accurate enough for the fitting program. The approximation that will 


be implemented is: 


Where R(n) 
I(n) 
M(n) 

s 


Real Data Entry 
Imaginary Data Entry 
Magnitude Approximation 
Absolute Value 


and G(n) = Greatest [Abs[R(n)] or Abs[I(n)]] 
L(n) 2 Least [Abs[R(n)] or Abs[I(n)]] 


If G(n)/4 =) L(n) 


Then 
(n) 2 G(n) 
Else M(n) = 0.7659 * [G(n) + L(n)] 


(Note: 0.7659 is the average [l/(sin + cos)] for arctan (1/4) and arctan 


(1/1)). 
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5.2.1.2 Calling Program 


MAGAPX is called by FFTMN. 


5.2.1.3 Inputs 


The primary input is the frequency component data in the FIFO. Additional 
inputs are FLNPTR, with the FFT Length, and the BASE address of the data in the 
FIFO. There is an Internal Constant, the Approximation Factor, 0.7659 (#6209). 


5.2.1.4 Internal Variables 


There are no Internal Variables. 


5.2.1.5 Subroutines Used 


The MAGAPX routine uses the BDRYST (Boundary Set) and BDRYCK (Boundary 


Check) subroutines for checking for Address Wraparound. Multiplication is done 


by SNMULT. DTASCL (Data Scale) is used to scale the FIFO Data to the maximum 


values. 


5.2.1.6 Output 


The only output is the data in the FIFO. The first entry of the "n" value 


pair will be the Magnitude Approximation. The second entry will be zeroed (so 


as to not disrupt further Scaling Operations). 
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5.2.1.7 Description 


In the following description the "
en)" notation will be suppressed for 


clarity. There are seven sections to the code. They proceed as follows: 


SCALE DATA: 


Scale Data for Maximum Range 


INITIALIZE: 


Initialize Pointers 


Call BDRYST for BDRYOK (Boundary OK) and FREELN (Free Length) values 


Setup for Magnitude Approximation 


NEXTMN: (Next Magnitude Approximation) 


Calculate Absolute Value of R, Abs(R) 


Check for Address Wraparound, Reset if Necessary 


Calculate Absolute Value of I, Abs(I) 


CMPRRI: (Compare Abs(R) and Abs(I)) 


If Abs(I) > Abs(R) 
Then Goto IGTR 
Else Abs(R) -> Abs(I) 


If Abs(R)/4 < Abs(I) 
Then Goto FCTXSM 
Else Abs(R)/4 -> Abs(I), Goto NDDNCK 
(Magnitude is as it should be, in R) 


IGTR: (Abs(I) Greater Than Abs(R)) 


If Abs(I)/4 < Abs(R) 
Then Goto FCTXSM 
Else Abs(I)/4 => Abs(R), Store Abs(I) into R, Goto NDDNCK 


FCTXSM: (Factor Times Sum) 



lagnitude = 0.7659 * (Abs(R) + Abs(I)), Store into R Location 
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NDDNCK: 


Store #0000 into I Location 


Call BDRYCK (Boundary Check) to Test/Correct Address Wraparound 


If Not Done, Goto NEXTMN 


Exit 
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5.2.2 SMTGMX (Smooth and Tag Maximum) 


5.2.2.1 Function 


This routine uses a running 8-point average to smooth the frequency 


components, and tags the greatest value (after smoothing). It assumes that the 


magnitude values are in every other location in the FIFO, starting with the BASE 


address, with entries of 00000 in between. It returns with the smoothed values 


replacing the original magnitude entries, and: 


MXADDR 
FMAX 
MXVALU 
MXEXP 


containing the Address of the Maximum Value; 
the Frequency Index of the Maximum Value; 
the (Fixed Point Fraction) Maximum Value; and 
the Exponent (Shift) Value of the Maximum. 


No te : 


The Maximum Value was detected prior to modification by the 


Instrument Correction Table (done in CKFMAX). This was the method selected by 


the LBL Geologists. 


5.2.2.2 Calling Program 


SMTGMX is called by FFTIIN. 


5.2.2.3 Inputs 


The primary input is frequency component data in the FIFO, stored as 


Magnitude values in the "even'. locations, with 110000 in the "odd" locations. 


Additional inputs are FLNPTR, with the FFT Length, and the BASE address of the 


data in the FIFO. 
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5.2.2.4 Internal Variables 


There are no Internal Variables. Note: The returned values listed above 


are actually some of the FIT Global Variables. They are listed in the code as 


Internal but since they are maintained by all code running afterward (including 


FFTMN) they are actually Global. 


5.2.2.5 Subroutines Used 


The SMTGMX routine uses the BDRYST (Boundary Set) subroutine to initialize 


to check for for Address Wraparound. The Boundary Checking is done by 5MBDCK 


(Smooth Boundary Check), an Inter
al Subroutine necessary because two pointers 


need to be checked (see Section 5.2.2.7). DTASCL (Data Scale) is used to scale 


the FIFO Data to the maximum values. 


5.2.2.6 Output 


One of the outputs is the data in the FIFO, smoothed as described. The 


other outputs are the calculated values, in the following locations: 


Addr Name 


Description 


30EO 
30E2 
30E4 
30E6 


MXADDR 
FMAX 
MXVALU 
MXEXP 


Address of Maximum 
Frequency Index of Maximum 
Maximum Value (Integer) 
Maximum Value (Exponent "Shift" Value) 
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5.2.2.7 Description 


The operation which will be performed in this program is: 


S(n) 2 [M(n-3) + ... + M(n) + ... + M(n+4)]/8, for 


n = 3, 4, ..., (Spectra Length - 5) 


Where: S(n) is the Smoothed Magnitude Value 


M(n) is the Approximated Magnitude Value, and the 


Spectra Length is either 32, 64, 128, or 256 


The program will also find the Maximum Spectra Value (or the last occurence 


if two or more are equal). The returns are the MXADDR, Frû\X, MXVALU, and MXEXP, 


as listed above. 


It should also be noted that in order to perform the eight element sum for 


the running window two special constructs are used. First a pair of pointers, 


one for the head, and one for the tail, are necessary. 


This also requires a 


unique 5MBDCK (Smooth Boundary Check) subroutine to test both pointers. Second, 


a 24-bit accumulator must be utilized to handle the potential overflow of the 


eight element sum. 


In addition this is the first routine to use anything other than the 16-bit 


Fixed Point number representation. 


The 
crVALU is the Fixed Point integer 


resulting from the eight element average. The MXEXP is the TOTLSH (Total Shift) 


quantity which has been accumulated throughout in DTASCL (Data Scale). It is 


decremented by 1 to correct for the doubling which was inherent in the ORDER 


function (see Section 5.1.6.7). 
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The operations proceed as follows: 


SCALE DATA: 


Scale Data for Maximum Range 


Call BDRYST for BDRYOK (Boundary OK) and FREELN (Free Length) values 


Initialize Window Input and Window Output Pointers 
Leave Max Pointer at First Value 


Sum first Eight Values into Long Accumulator 


Call 5MBDCK (Smooth Boundary Check) to Test/Correct for Wraparound 


SAVAVG: (Save Average) 


Put Sum into Temporary Register, Divide by 8 for Average 


Subtract Oldest Value from Total Sum 


Save Averaged Sum at Oldest Location 


If New Averaged Sum -) Old Max Averaged Sum 
Then New Max Sum = New Averaged Sum 


Get Input Pointer to Next Magnitude 


Call 5MBDCK to Test/Correct for Address Wraparound 


If Done, 
Then Goto SM}crDN 


Add New Magnitude into Long Accumulator 


Goto SAVAVG 


SMMXDN: (Smooth/Maximum Done) 


Store Address of Maximtnn into MAXADDR 


Compute Frequency Index of Maximum Value, Store as FMAX 


Store Value at Maximum into MXVALU and 
1XEXP 


Exit 
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5MBDCK: (Smooth Boundary Check) 


If Input Pointer Past YSLWA+l 
Then Reset Past YSFWA 


If Output Pointer Past YSLWA+l 
Then Reset Past YSFWA 


Decrement Move Count by 4, If Done 
Then Set Done Flag True 
Else Set Done Flag False 


Return via Reset to PC 
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5.2.3 CKFMAX (Check Maximum Value) 


5.2.3.1 Function 


This routine does a number of things. They are: 


(1) Pass the number of Spectra Components to the Output List as LNFFT (32, 
64, 128, or 256). 


(2) Correct the FMAX Fraction and Exponent Values by the Geophone Response 
Curve. 


(3) Correct the FMAX Values for the Geophone Power Gain. 
(4) Correct the FMAX Values for the Amplifier Power Gain. 
(5) Pass the Entries to the Output List. 


(6) Store the FMAX Index Number as FO on the Output List. Zero GMAINT and 
GMAFRC (GAMMA Integer and GAJfliA Fraction) on the Output List (these 
three entries are necessary in case of an aborted routine). 


(7) Assure a valid event. That is, assure: 


Head Boundary (a FMAX (a Tail Boundary 


(8) Return with Good or Bad Flag. 


5.2.3.2 Calling Program 


CKFMAX is called by FFTMN. 


5.2.3.3 Inputs 


The primary Input is the Frequency Magnitude Values in the FIFO, smoothed by 


the SMTGMX routine. Additional inputs are FLNPTR, with the FFT Length, the FIT 


Global Variables, and GAIN, the Amplifier Gain input by the Operator. The 


Instrument Correction Table is accessed for the Ft1AX index value. There are 


also some Internal Tables for the Head and Tail Boundaries, Correction Table 


Skip Lengths, and Spectra Lengths. 


Finally some Internal Constants for the 
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Geophone Gain Fraction and Exponent, and the Fix Table Normalize Fraction and 


Exponent are used. 


5.2.3.4 Internal Variables 


There are no Internal Variables. Note: The FIT Global Variables are listed 


in the code as Internal. 


In reality since they are maintained by all code 


running afterward (including FFTMN) they are actually Global. 


5.2.3.5 Subroutines Used 


SNMULT is used to multiply the energy values. In addition there are two 


Internal Subroutines. LNFIX (Length Fix) is used to locate a pointer within the 


INSFIX table. FLSCCK (Full Scale Check) adjusts the MXNI
T and 
EXP values to 


full scale. 


5.2.3.6 Output 


MXNI
T and MXNEXP are the FMAX MXVALU and MXEXP values, corrected for the 


Geophone Response Curve, the Geophone Power Gain, and the Amplifier Power Gain. 


FO receives FMAX. GMAINT (GAlU1A Integer) and GMAFRC (GAMMA Fraction) are 


zeroed. 


5.2.3.7 Description 


The routine proceeds as described in the Function Section 5.2.3.1. 
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The correction table is a table of 256 possible frequency entries from DC to 


50 Hz to correct for the Geophone's Filtering Characteristics (run at 100 


samples per second). It was generated by the program: 


{[(2*pi*4.5)A2 + (2*pi*n)A2]A2 + [2*pi*1.77]A2]}-1/2 
INSFIX(n) 
 ---------------------------------------------------- 
(2*pi*n) -3 


The values are normalized for the n = 26th entry, corresponding to 5.0781 


Hz. A non-zero-index normalization was required to maintain dynamic range as 


the rolloff becomes more severe. The frequency 5.0781 Hz was selected based 


upon geological considerations. 


Geophone and Amplifier Gain corrections were 


include to maintain ground motion to data output consistency. 


For the Energy Magnitude Computation the value must be re-multiplied by n 
 


26's actual magnitude. That is: 


3.40005E-2 - #0452 * 2 A (#0000) 
= #45A2 * 2 A (#FFFC) 


As just mentioned there are geological considerations involved in not using 


events with maximum entries near DC or at the highest frequencies. Also, as 
will be seen in the GMACPT (Gamma Compute) program there are some mathematical 
reasons why the maximum can't be too far out. As it works out, this range of 


valid F
1AX index values are: 


for LNFFT = 
for LNFFT = 
for LNFFT = 
for LNFFT = 


32, 4 <= 
64, 7 <= 
128, 13 <= 
256, 26 <= 


FMAX Index <= 
FMAX Index <= 
FMAX Index <= 
FHAX Index <= 


13 
33 
81 
153 
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It should be mentioned that consideration was also given to introducing the 


energy correction for spectra length necessary for harmonic analysis (see 


[Brig], pg. 137). 
H(n/NT) = TINT SUM[h(kT)exp(-j*2*pi*n*k/N)] for k 
 0, 1, ..., N-1 


However this operation, dividing by delta T, is now done in the BOSS. 


The routine proceeds as listed: 


CKFMAX: (Check FMAX) 


Store FFT Length (32, 64, 128, or 256) into FFTLN (FFT Length) 


Prepare Pointer for Energy Correction 


ENGeRT: (Energy Correction) 


Get Pointers to MXVALU and INSFIX Frequency Component 
Call LNFIX (Length Fix) for INSFIX Pointer 


MXNINT (- 
DrnINT * INSFIX(FMAX) 


NORMALIZE FOR 1ST INDEX VALUE: 


MXNINT (- MXNINT * 
lFR (Fix Normalize Fraction) 


MXNEXP (- MXEXP + FXNMXP (Fix Normalize Exponent) 


Call FLSCCK (Full Scale Check) to test MXNINT and 
DrnEXP 


CORRECT FOR GEOPHONE GAIN: 
MXNINT (- MXNINT * GPHFRC (Geophone Gain Frac tion) 
MXNEXP (- MXNEXP + GPHEXP (Geophone Gain Exponent) 


CORRECT FOR AMP GAIN: 


POWER (- LOG(base 2)GAIN 



nrnEXP (- ML
EXP - POWER 


SET OUTPUT VARIABLES FOR POTENTIAL ABORTION: 


Store FMAX into FO 


Zero GMAINT and GMAFRC (GAMMA Integer and GAMMA Fraction) 
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TSTBDR: 


If FMAX > Tail Boundary 
Then Exit with Error Flag (#00) 


If F

 < Head Boundary 
Then Exit with Error Flag (#00) 


Exit with OK Flag (Not #00) 


LNFIX: (Length Fix Internal Subroutine) 


Get R(AC) to MXNINT (Maximum Energy Integer) INSFIX Value 


Return via PC (not ready for another Call) 


FLSCCK: (Full Scale Check Internal Subroutine) 


Get R(AC) to MXNINT 


INTCHK: (Integer Check) 


If MXNINT 2nd MSB (Most Significant Bit) Equals 111 11 
Then (since known positive) Goto EXFSCK 


Shift MSNINT up by 1 


Subtract 1 from MXNEXP 


Goto INTCHK 


EXFSCK: (Exit Full Scale Check) 


Return via PC (not ready for another Call) 
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5.2.4 m1ACPT (GAMMA Compute) 


5.2.4.1 Function 


GMACPT does a straightline fit for the slope of log(base 10) of the rolloff. 


The two points that are used for the line are four index aver ages around 
frequency values 6.25 and 18.75 Hz away from the FMAX index value (see Figure 
5.2.4.1.a). That is: 


(10g(base10)Y1 - 10g(base10)Y2) 


GAMMA 3 ------------------------------- (19) 


(10g(base10)X2 - 10g(base10)X1) 


Where: Xl 3 FMAX + 6.25 Hz 
X2 
 FMAX + 18.75 Hz 
Y1 = AVGY(X1) 
Y2 
 AVGY(X2) 


and AVGY 3 1/4 SUM[SMOOTHED 

G(n)] for n 3 X-I, X, X+1, X+2 


5.2.4.2 Calling Program 


GMACPT is called by FFTMN. 


5.2.4.3 Inputs 


The primary Input is the Frequency Magnitude Values in the FIFO, smoothed by 


the SMTGMX routine. 


Additional inputs are FLNPTR, with the FFT Length, the 


LNFFT value, and the FIT Global Variables, especially F

 and MXADDR. 


There 


are also some Internal Tables for Xl, X2, Yl, and Y2 Offsets, Indexes, and Skip 


Values for the Spectra and INSFIX values. Finally there is a 127 entry Base 2 


Log table. 


87 



ASP FFT Program 
FFT/FIT program Description 


,,-....... 
Q) 
\J 
::J 
-+-' 


C 
0'> 
o 
L 


X 1, Y1 


\J 
Q) 
...c 
-+-' 
o 
o 
E 
(f) 
"-" 
CJ) 
o 


X2, Y2 


1 10 L() L() 100 
N ,....... log(n) 
X . . 
<( (() CXJ 

 + 
 
lJ.... X + 
<( X 

 <( 
l1- 
 
lJ.... 


GAM MA 


log(Y1 ) 
log(X2) 


log(Y2) 
log(X1) 


Figure 5.2.4.1.a High Frequency Slope (GAMMA) Calculation 


88 



ASP FFT Program 
FFT/FIT Program Description 


5.2.4.4 Internal Variables 


The following Internal Variables are used in the GMACPT routine. 


Addr Name 


Description 


--------------------------------------- 


30F4 NUMLOG 


30F7 DENLOG 


Numerator (Difference) Log 
8-bit Mantissa, 16-bit Characteristic 
Denominator (Difference) Log 
8-bit Mantissa, 16-bit Characteristic 
Working Y or X Temporary Scratchpad 


30FA YXWORK 


Note: The FIT Global Variables are listed in the code as Internal. In 


reality since they are maintained by all code running afterward (including 


FFTMN) they are actually Global. 


5.2.4.5 Subroutines Used 


SNMULT is used to multiply the energy values. 


LNFIX (Length Fix), an 


Internal Subroutine in CKFMAX, is used to locate a pointer within the INSFIX 


table. DIV, an RCA 32 bit by 16 bit divide, is also used. In addition there is 


an Internal Subroutine, LOG2, which calculates the base 2 log of a previously 


adjusted 7-bit number (see Description Section 5.2.4.7). 


5.2.4.6 Output 


The only outputs are the GMAINT (GAMMA Integer) and GMAFRC (G

MA Fraction) 


values. 
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5.2.4.7 Description 


Computation of the logarithms will be accomplished base 2, utilizing a 127 


entry look-up table. Equation (19) can be rewritten base 2 as: 


(log(base2)Y1 - log(base2)Y2) 


GAMMA 3 (1/log(base10)2) ----------------------------- (20) 


(log(base2)X2 - log(base2)X1) 


and log(base10)2 3 0.3010 


Note: The conversion factor (0.3010) will be applied in the BOSS. 


For all of the different length FFTs the frequency spectra spans from 0 to 


50 Hz (100 samples per second). Thus the resolution for the FFT lengths 32, 64, 


128, and 256 is 1.56, 0.78, 0.39, and 0.20, Hz respectively. As presented above 


the Y Average will be developed: 


AVGY 3 1/4 SUM[SMOOTHED MAG(n)] for n a X-1, X, X+1, X+2 


Thus for the different resolutions the averaged (Hz) values will be: 


FFT Delta 4 Y1 Averaged Values 4 Y2 Averaged Values 
----- ---------------------- -------------------------- 
32 1.56 4.69 6.25 7.81 9.38 17.19 18.75 20.31 21.88 
64 0.78 5.47 6.25 7.03 7.81 17.97 18.75 19.53 20.31 
128 0.39 5.86 6.25 6.64 7.03 18.36 18.75 19.14 19.53 
256 0.20 6.05 6.25 6.45 6.64 18.55 18.75 18.95 19.14 


In all cases for the X value (n index value) the Xl point will be (FMAX + 
6.25) Hz and X2 will be (FMAX + 18.75) Hz. Again for the different resolution 
for the various FFT lengths the Index Offset Lengths will be: 
FFT Delta Xl Index Offset X2 Index Offset 
----- ------------------ ------------------- 
32 1.56 4 (x 1.56 = 6.25) 12 (x 1.56 = 18.75) 
64 0.78 8 (x 0.78 = 6.25) 24 (x 0.78 = 18.75) 
128 0.39 16 (x 0.39 = 6.25) 48 (x 0.39 = 18.75) 
256 0.20 32 (x 0.20 = 6.25) 96 (x 0.20 = 18.75) 


90 



ASP FFT Program 
FFT/FIT Program Description 


This routine requires the computation of a logarithm. 


This will be 


accomplished 


base 2. 


Starting with the 16-bit fixed point number the 


characteristic is determined by the number of times it can be shifted up until 


the 


most 


significant 


bit becomes "1" (the more shifts the less the 


characteristic). The next highest seven bits of the resultant number are used 


to address a 127 element log table for the mantissa. 


It will be seen that numeric representations other than 16-bit Fixed Point 


will 


be 


used 


by 


this 


routine. 


Integer-Exponent, 


Integer-Fraction, 


Characteristic-Mantissa, and 24-bit Fixed Point are all evident. They have been 


developed, and are utilized, as necessary. 


The routine operates as listed: 


GMACPT: (GAMMA Compute) 


Get pointers to correct Length Table Yl entry 


Set Flag for Yl pass 


LYINIT: (Log2(Avg(Y)) Initialize) 


Get pointers to value for Y, INSFIX, Skip values 


Call LNFIX (Length Fix) for INSFIX pointer 


Initialize Series Counter, 24-bit Accumulator, SNMULT pointer 


MLTADD: (Multiply, then Add) 


Check for Address Wraparound, If past YSLWA+l 
Then set past YSFWA 


Accumulator (- Accumulator + (Y * INSFIX) 


Increment Y and INSFIX pointers 


Decrement Series Counter, If not Done 
Then Goto MLTADD 


Done with 4 Ys, Divide by 4 for Average 
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Call LOG2 for Log Base 2 of Averaged Y 


If Y2 pass 
Then Goto SBT2ND 


Store LOG2(YI) at 24-bit N
ILOG (Numerator Log) 


Get pointers to Y2 entry 
Set Flag for Y2 pass 
Goto LYINIT 


SBT2ND: (Subtract LOG2(AVG(Y2))) 


Subtract Y2 Mantisa from YI Mantissa 


If resultant Mantissa is Positive 
Then Goto STNCHR 


Add I to Y2 Characteristic (Subtracted Later), Add I to Mantissa 


STNCHR: (Subtract Numerator Characteristic) 


Subtract Y2 Characteristic from YI Characteristic 


If Resultant Characteristic Negative (Error Condition) 
Then Set Error Flag (HFFFF in GHAINT and GMAFRC) 
Exit 


DENCPT: (Denominator Computation) 


Get Pointer to FMAX Index Value 


Add X2 Index Offset 


Call LOG2 for Log Base 2 of X2 


Store LOG2(X2) in DENLOG (Denominator Logarithm) 


Subtract (X2 to Xl) Index Offset 


Call LOG2 for Log Base 2 of Xl 


Subtract Xl Mantisa from X2 Mantissa 


If resultant Mantissa is Positive 
Then Goto STDCHR 


Add I to Xl Characteristic (Subtracted Later), Add I to Mantissa 
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STDCHR: (Subtract Denominator Characteristic) 


Subtract Xl Characteristic from X2 Characteristic (assured positive) 


DIVIDE NUMERATOR CHAR/MAN BY DENOMINATOR CHAR/MAN: 


CHRCHK: (Characteristic Check) 


If both Numerator and Denominator 000 
Then Goto DVNMDN 


Shift Numerator and Denominator Char/Man down by 1 


Goto CHRCHK 


DVNMDN: (Divide Numerator by Denominator) 


Set Registers and Pointers for Divide 


Call RCA 32-bit by 16-bit Divide 


Store Quotient as GMAINT (GAMMA Integer) 


With Remainder as Numerator, Same Denominator, Recall Divide 


Save Quotient as GMAFRC (GAMMA Fraction) 


Exit 


--------------------------------------------------------------------------- 


LOG2: (Log(M(FRP)) Internal Subroutine) 


If value equals #0000 (is assumed positive) 
Then Goto EXLOG2 


Shift value until MSB = 1 
Number of Shifts = Characteristic (more shifts = less characteristic) 


Number now between "1.. and ..2.. 


Use next high 7 bits as address to 127 entry Log(base2) Table 


EXLOG2: (Exit LOG2) 


Return via PC 
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5.2.5 FOLPL (Compute FO and Long Period Level) 


5.2.5.1 Function 


This routine performs two functions. first it computes FO by checking 
GAMMA. 
If GAMMA < 1.0, then ABORT with Flag 
If 1.0 <- GAMMA < 2.5, then FO - 2.06 * FMAX 
If 1.5 <= GÑ
ß < 3.5, then FO == 1.38 * FMAX 
If 2.5 <= GAJrnA < 4.5, then FO ::I 1.27 * FMAX 
If 3.5 <= GAMMA < 5.5, then FO == 1.20 * FMAX 
If 4.5 <- GAMMA < 6.5, then FO ::I 1.16 * FMAX 
If 5.5 <- GAMMA < 7.5, then FO == 1.13 * FMAX 
If 6.5 <- GAUMA < 7.5, then FO == 1.10 * FMAX 
If 7.5 <= GAMMA < then FO == 1.00 * FMAX 


Then it computes the Long Period Level (LPL) by: 


Maximum Energy Value 
LPL = -------------------- 
0.9 


- 1.1 * Maximum Energy Value 


Where the Maximum Energy Value (MXNINT and MXNEXP) is the energy at the FMAX 


value, already corrected for the Instrument Response and the Gain Factor. 


5.2.5.2 Calling Program 


FOLPL is called by FFTMN. 


5.2.5.3 Inputs 


Inputs are the FMAX value at the FO location, the GAMMA value, and the 


MXNINT and MXNEXP values. 
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5.2.5.4 Internal Variables 


The FIT Global Variables are listed in the code as Internal. 


In reality 


since they are maintained by all code running afterward (including FFTMN) they 


are actually Global. NillILOG and DENLOG are not used. 


5.2.5.5 Subroutines Used 


This routine uses the SNMULT subroutine. Also internal to the routine is a 


GMAC
æ (GAMMA Compare) subroutine. This program checks the GM
tA value against 


a table entry, and returns a less than, or a greater than, flag. 


5.2.5.6 Output 


If GAMMA is less than 1.0, then the routine is exited with the GAMMA as an 


out-of-bounds flag. 


Otherwise correct FO and Maximum Energy Values are 


returned. 


5.2.5.7 Description 


The program operates as follows: 


FOLPL: (FO and Long Period Level Compute) 
Initialize pointers 


If GAMMA < 1.00 
Then exit with an Out-Of-Bounds G

MA 


If G

 =) 1.50 
Then Goto TBLTST 


FO = 2.06 * FMAX 
(FMAX + FMAX + O.6*FMAX) 


Goto LPLCPT 
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TBLTST: (Table Test) 
Set Pointer to next Boundary Value 
(to 7.5, to 6.5, ..., to 1.5) 


If GAMMA < Boundary 
Then Goto TBLTST 


FO = Factor * FMAX 


LPLCPT: (LPL Compute) 


MXNINT = MXNINT + (0.10 * MXNINT) 


If Overflow 
Then MXNINT 
 MXNINT - 1 
MXNEXP = MXNEXP + 1 


Exit 


GMACMP: (GAMMA Compare Internal Subroutine) 
Checks for GMAINT.GMAFRC < M(R(MQ)) + 0.50 
Returns with OF = 0 If <, OF = 1 If =) 


Compute GMAFRC - 0.50 (#4000) 


If Result Negative 
Then Add 1 to M(R(MQ)) (subtracted next) 


Compute GMAINT - M(R(MQ)) 


Return with Reset to PC, Ready for another Call, with DF Flag 
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5.3 Subroutines 


The subroutines are organized for convenience into three separate files. 


The first file is called SUBROT and contains five separate routines (WRPTST, 


CS/SNMULT, ADDSTF, NEWVAL, and TRG/SHPSET). The second file contains the DTASCL 


routine. 


The third file, called SUBRT2 contains the BDRYST/CK routine. Each 


routine will be described individually. 


5.3.1 WRPTST (Wraparound Test) 


5.3.1.1 Function 


For the operations where the addresses of the data being manipulated jump 


around this routine tests the R(MA) pointer to see if the computed address is 


beyond the end of the FIFO and reinitializes it if necessary. That is: 


If (DIF a (R(MA) - (FIFO LWA+1))) =) 0 


Then R(MA) = (FIFO FWA) + DIF 


The routine exits ready for another call. 


5.3.1.2 Calling Programs 


This routine is used by the FFT, UNSCRM and ORDER programs. 


5.3.1.3 Inputs 


It is assumed that R(ZAP1) points to the value for FIFO LWA+l, and the 


address of FIFO FWA is at the next location. 
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5.3.1.4 Internal Variables 


There are no Internal Variables. 


subroutine. 


5.3.1.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.1.6 Output 


R(MA) will be corrected if necessary. 


5.3.1.7 Description 


RETURN: 


R(ZAP3.1) will be a flag in the 


Return ready for another Subroutine Call 


WRPTST: (Wraparound Test Entry Point) 


Subtract Boundary from Pointer 


If Pointer less than Boundary 
Then Goto RSBDRY 


Set Pointer past FWA 


RSBDRY: (Reset Boundary) 


Reset R(ZAP1) to Boundary Address 


Goto RETURN 
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5.3.2 CSMULT and SNMULT (Cosine and Sine Multiply) 


5.3.2.1 Function 


This program can be entered at two locations. CSMULT takes Operand B from 



1(CSVLU). SNMULT takes operand B from M(R(MQ)). In either case Operand A comes 


from M(R(MA)). The interrupts are disabled, the Multiplier Power is turned on, 


and the operands B and A are output to it. Control then returns to the calling 


program to do useful work while the hardware multiplier works (six long 


instructions). Upon return the result is shifted left by one to accommodate for 


the bi t ""lost" from the two two's-complement frac tions mul tiplying. The resul t 


goes to M(R(AC)) and is also saved in R(ZAP3). The Multiplier Power is turned 


off, the interrupts reenabled, and the subroutine exited ready for another 


SNMULT call. 


5.3.2.2 Calling Programs 


CSMULT is used by both the SHAPE and the FFT routines. SNMULT is used by 


the FFT, MAGAPX, CKFMAX, GMACPT and FOLPL routines. 


5.3.2.3 Inputs 


Operand A, the data value, comes from M(R(MA)). For CSMULT operand B, the 


trig value, comes from M(CSVLU). For SNMULT operand B comes from M(R(

)). 
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5.3.2.4 Internal Variables 


There are no Internal Variables. R(MA) and R(AC) (and R(MQ) if used) are 


left incremented by 2. 


5.3.2.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.2.6 Output 


The result goes to M(R(AC)) and is also saved in R(ZAP3). 
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5.3.2.7 Description 


CSMULT: (Cosine Multiply Entry Point) 


Disable Interrupts, Turn On Multiplier Power 


Output Cosine Value 


Goto OUTtiA 


EXITM: (Exit Multiplier) 


Turn Off Multiplier Power, Enable Interrupts 


Return ready for another SNMULT Call 


SNMULT: (Sine Multiply Entry Point) 


Disable Interrupts, Turn On Multiplier Power 


Get Sine Value, Output It 


OUTMA: (Output M(R(MA)) Operand) 


Output Operand A 


Command to Multiply 


Return to Calling Program while Hardware Works 


MLTMDL: (Multiply Middle Return Point) 


Upon Return, Get Result, Shift Up by 2, Store It 


Exit through EXITM 


101 



ASP FFT Program 
FFT/FIT Program Description 


5.3.3 ADDSTF (Add and Stuff) 


5.3.3.1 Function 


This program computes LOREAL and LOlMAG or HIREAL and HIIMAG address values 


for the FFT routine. For Quad Address computation: 


LOREAL 
 BASE + COLPTR 
LOIMAG 
 BASE + COLPTR + 2 
HIREAL = BASE + COLPTR + COLBIT 
HIIMAG 
 BASE + COLPTR + COLBIT + 2 


For the UNSCRM routine, the Quad Addresses are: 


NMREAL 
 BASE + NMPTR 
NMIMAG 
 BASE + NMPTR + 2 
SWREAL 
 BASE + SWPTR 
SWIMAG = BASE + SWPTR + 2 


In each case the locations of the Quad Address pointers are sequential 


(separated by 2) and are computed a pair at a time. Functionally, for the 


registers initialized prior to entry, the operations are: 


M(R(ZAP1)) - R(MP) + M(R(FRP)) 
M(R(ZAP1)+2) 
 R(MP) + M(R(FRP)+2) 


The routine exits ready for another subroutine call. 


5.3.3.2 Calling Programs 


ADDSTF is called by FFT and UNSCRM. 
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5.3.3.3 Inputs 


The Input Values are in the R(ZAP1) and R(MP) registers, and in M(R(FRP)) 


and M( R( FRP) )+2 . 


5.3.3.4 Internal Variables 


There are no Internal Variables. R(ZAP2) is used as a temporary storage 


location. 


5.3.3.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.3.6 Output 


R(ZAP2) is returned updated by M(R(FRP)). 


5.3.3.7 Description 


RETURN: 


Return ready for another Subroutine Call 


ADDSTF: (Add and Stuff Entry Point) 


M(R(ZAP1)) = R(MP) + M(R(FRP)) 


Store to --REAL 


Increment Value by 2 


Store to -- IMAG 


Exit through RETUR
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5.3.4 NEWVAL (New Value) 


5.3.4.1 Function 


This routine computes and stores the new entries for the quad of data for 


the FFT routine, a pair at a time. That is, either: 
M(LOREAL) :a M(LOREAL) + TREAL, or 
M(HIREAL) - M(HIREAL) - TREAL. 
Or: 
M(LOIMAG) = M(LOIMAG) + TIMAG, or 
M(HllMAG) :a M(HlIMAG) - TlMAG. 


Address pointers LOREAL, LOIMAG, HIREAL, and HllMAG are located sequentially 


1m memory, 2 bytes apart. Thus for preinitialized pointers: 


R(FRP) points to LOREAL or LOIMAG, and 
R(ZAP1) points to TREAL or TlMAG 


This is accomplished by: 


M(M(R(FRP))) - M(M(R(FRP))) + M(R(ZAP1)) 
M(M(R(FRP)+4)) - M(M(R(FRP)+4)) - M(R(ZAP1)) 


This routine exits ready for another subroutine call. 


5.3.4.2 Calling Programs 


NEWVAL is called by FFT. 


5.3.4.3 Inputs 


R(FRP), M(R(FRP), M(M(R(FRP))), M(M(R(FRP))+4), and M(R(ZAP1)). 
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5.3.4.4 Internal Variables 


There are no Internal Variables. 


5.3.4.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.4.6 Output 


The new column's data is computed for the correct pointer locations. 


5.3.4.7 Description 


RETURN: 


Return ready for another Subroutine Call 


NEWVAL: (New Value Entry Point) 


Load the Updating Value (@M(R(ZAPl))) 


Subtract from the Value to be Updated (@M(M(R(FRP)))) 


Add to that Value and Store at HI---- 


Store Subtracted Value at LO---- 


Exit through RETURN 
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5.3.5 TRGSET and SHPSET (Trig and Shape Set) 


5.3.5.1 Function 


These subroutines compute the address of the pointers for the 256 entry trig 


table. That is: 


TRGPTR = BIT REVERSAL(TRGCTR) 


Bit reversal is a well known algorithm necessary for a couple of operations 


in the FFT algorithm. Where the initial bit pattern is: 


Xn, Xn-1, 


. . . , 


Xl, XO 


The pattern after bit reversal is: 


XO, ,!{1, ..., Xn-1, Xn 


or, for example, for length 8: 


000 results in 000 
001 results in 100 
010 results in 010 
011 resul ts in 110 
100 results in 001 
101 results in 101 
110 results in 011 
111 results in 111 


The pointers are generated: 


SNPTR 
 TRGFWA + TRGPTR 
CSPTR :a TRGLWA - TRGPTR 


Only the first quarter of the sine wave has been included, from sin(O) = 0 


to sin(pi/2) :a 1 (or #7FFF). Since trig values are needed for sine and cosine 


from 0 to pi, corrections must be included. Sine values will be figured by a 


pointer added to the base address (SNPTR = TRGFWA + TRGPTR). If SNPTR is past 


TRGLWA then the routine returns it back as many as it was off the end. 


Cosine 


values will be computed by a pointer subtracted from the last address (CSPTR = 
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TRGLWA - TRGPTR). If the address is after TRGFWA (0 to pi/2) it stores the 


entry as is at CSVLU. If the pointer is in front of TRGFWA (between pi/2 and 


pi). it returns back as many entries as it was in front and stores that value, 


negated, into CSVLU. 


There is a second entry point used by the SHAPE routine, at SHPSET (Shape 


Set), which uses the CSVLU computing algorithm. 


The subroutine exits ready for another TRGSET call. 


5.3.5.2 Calling Programs 


These subroutines are used by the FFT and SHAPE routines, respectively. 


5.3.5.3 Inputs 


R(MP) must have the TRGCTR value. 


5.3.5.4 Internal Variables 


The following variables are used in the routine, and returned to the calling 


function. 


Addr Name 
------ 
30EA TRGCTR 
30EC CSPTR 
30EE SNPTR 
30FO TRGPTR 


Description 


--------------------------------------- 


Trig Counter 
Cosine Pointer 
Sine Pointer 
Trig Pointer 
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5.3.5.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.5.6 Output 


The variables listed above, TRGCTR, CSPTR, SNPTR, and TRGPTR are output. In 


addition the CSPTR value is stored in CSVLU. 


5.3.5.7 Description 


RETURN: 


Return ready for another TRGSET Subroutine Call 


TRGSET: (Trig Set Entry Point) 


Shift TRGCTR into TRGPTR 10 Times 


Compute SNPTR 
 TRGFWA + TRGPTR 


If SNPTR <= TRGLWA 
Then Goto CSCMPT 


Return SNPTR back into Trig Table 


CSCMPT: (Cosine Compute) 


Compute CSPTR = TRGLWA - TRGPTR 


SHPSET: (Shape Set Entry Point) 


If CSPTR =) TRGFWA 
Then Goto CSVLST 


Return CSPTR back into Trig Table 


Negate Cosine Value 


CSVLST: (Cosine Value Store) 


Store into CSVLU 


Exit through RETURN 
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5.3.6 DTASCL (Data Scale) 


5.3.6.1 Function 


DTASCL scales the data up for maximum dynamic resolution, yet assures that 


there are no overflow errors. For a given input MAXSHIFT it scales the data so 


that the greatest magnitude is between +MAXVALUE and -MAXVALUE, where: 
MAX- Maximum Positive Number Maximum Negative Number 
SHIFT Hex Binary Hex Binary 
7 117FFF 0111 1111 1111 1111 4/8000 1000 0000 0000 0000 
6 113FFF 0011 1111 1111 1111 IIcOOO 1100 0000 0000 0000 
5 1I1FFF 0001 1111 1111 1111 IIEOOO 1110 0000 0000 0000 
4 1I0FFF 0000 1111 1111 1111 "FOOD 1111 0000 0000 0000 
3 #07FF 0000 0111 1111 1111 DF800 1111 1000 0000 0000 
2 #03FF 0000 0011 1111 1111 "FCOO 1111 1100 0000 0000 
1 #OlFF 0000 0001 1111 1111 IIFEOO 1111 1110 0000 0000 
0 IIOOFF 0000 0000 1111 1111 IIFFOO 1111 1111 0000 0000 


The routine incorporates internal Boundary Set and Boundary Check code. 


Then the FIFO is scanned from the start for the length to find the highest 


significant place, or until a number occurs for which the MSB is active. This 


is done by checking the words high byte with a l's AND mask for positive entries 


and a D's OR mask for negative entries. This maximum magnitude is then compared 


with the desired MAXVALUE to see if shifting is required. If shifting is 


required the TOTLSH (Total Shift) entry is updated, then the FIFO is shifted, 


either up by one, up by more than one, down by one, or down by more than one 


(four routines were included for increased speed for this commonly run program). 


It should be noted that for shifting down, care must be taken to assure correct 


sign extensions for both positive and negative numbers. The routine exits ready 


for another subroutine call. 


109 



ASP FFT Program 
FFT/FIT Program Description 


5.3.6.2 Calling Programs 


DTASCL is called by SCALE, FFT, ORDER, MAGAPX, and SMTGMX. 


5.3.6.3 Inputs 


It is assumed that the Start Pointer is in R(MP) , the Length Pointer is at 


M(R(FRP)), the MAXSHIFT value is in R(ZAP2), the End Boundary address is in 


R(ZAP1) and the Start Boundary address is at M(R(ZAP1)+2) 


5.3.6.4 Internal Variables 


The following variables are used internally. 


Addr Name 
---- ------ 
3E01 THBDFL 
3E03 BDOKRM 
3E05 LNFREE 
3E07 UNDRSH 
3E09 SCSTRT 
3EOB SCLN 


Description 


This Boundary Flag 
Boundary OK Remember 
Length Free 
Under Shift Value 
Scale Start Address 
Scale Length Count 


5.3.6.5 Subroutines Used 


No (sub)subroutines are used. 


5.3.6.6 Output 


One output is the data in the FIFO, correctly shifted. 


Also the TOTLSH 


value is updated if necessary. 
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RETURN: 


Return ready for another Subroutine Call 


DTASCL: (Data Scale Entry Point) 


Save Start Address, Length Count, MAXSHIFT 


Compute FREELN, Store 


Test for Wraparound Condition, If OK 
Then Set BDOKRM True 
Else Set BDOKRM False 


Set Maximum Shift Count to 7 


Load AND 
æsk (#FF) and OR Mask (#00) 


MEMTST: (Memory Test) 


Test Memory Entry for Shift OK, If Too Many 
then Goto SHFTLS 


NXTCHK: (Next Memory Check) 


If Done Testing 
Goto NOWSCL 


If Boundary OK Flag True 
Goto MEMTST 


Decrement Free Length Counter, If Not LWA+l 
Goto MEMTST 
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Set Pointer to FWA, Set Boundary OK Flag True, Goto MEMTST 


SHFTLS: (Shift Less) 


Decrement MAXSHIFT, If at Limit (#00) 
Then Goto NOWSCL 


Adjust AND and OR 
msk, Goto MEMTST 
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NOWSCL: (Now Scale) 


Compute Shift Value, If #00 
Then Exit Through RETURN 


Adjust TOTLSH Value 


Retrieve Start Address, Length Count, liAXSHIFT, BDOKRM 


If Shift Value Negative 
Then Goto SHDOWN 


If Shift > 1 
Then Goto SHUPMR 


SHUPON: (Shift Up by 1) 


Shift Value Up by 1 


Decrement Length Count, If Done 
Then Exit through RETURN 


If BDOKFL True 
Then Goto next SHUPON 


Decrement LNFREE, If #00 
Then Reset Pointer to FWA, Set BDOKFL True 


Goto next SHUPON 


SHUPMR: (Shift Up by More Than 1) 


Get word, Shift Up Number of Times, Store Back 


Decrement Length Count, If Done 
Then Exit through RETURN 


If BDOKFL True 
Then Goto next SHUPMR 


Decrement LNFREE, If #00 
Then Reset Pointer to FWA, Set BDOKFL True 


Goto next SHUPMR 
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SHDOWN: (Shift Down) 


If Shift < -1 
Then Goto SHDNMR 


SHDNON: (Shift Down By 1) 


Shift Value Down by 1, With Sign Extend 


Decrement Length Count, If Done 
Then Exit through RETURN 


If BDOKFL True 
Then Gato next SHDNON 


Decrement LNFREE, If #00 
Then Reset Pointer to FWA, Set BDOKFL True 


Goto next SHDNON 


SHDmiR: (Shift Down By More Than 1) 


Get word, Shift Number of Times With Sign Extend, Store Back 


Decrement Length Count, If Done 
Then Exit through RETURN 


If BDOKFL True 
Then Gato next SHDNMR 


Decrement LNFREE, If nOD 
Then Reset Pointer to FWA, Set BDOKFL True 


Goto next SHDNMR 
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5.3.7 BDRYST/CK (Boundary Set and Check) 


5.3.7.1 Function 


These subroutines are used by sequential functions to check the length of 


the operation against the length of the FIFO for a potential wraparound 


condition. There are two entry points to this routine. The first computes the 


length from the First Address to LWA+l, that is the Free Length, and compares it 


to the Move Length for possible Boundary OK condition. It sets BDRYOK, FREELN, 


FWA, and MOVECT. The second entry point decrements FREELN and checks for LWA+l 


(if required). If necessary it resets R(MA) to FWA. It then decrements MOVECT 


to check for Done. If Done it returns with D = 00; else D <> 00. 


Both routines exit ready for a BDRYCK call. 


5.3.7.2 Calling Programs 


BDRYST/CK are used by the SHAPE and MAGAPX programs while BDRYST alone is 


called by SMTGMX (which has its own boundary check program, 5MBDCK). 


5.3.7.3 Inputs 


BDRYST requires that R(MA) have the Start Address (it is left unchanged), 


and R(MP) must point to Move Count (it is incremented by 2). R(ZAP1) must point 


to LWA+l and M(R(ZAP1)+2) must contain the FWA. 


BDRYCK utilizes R(}1A) the 


Address Pointer, and FREELN. 
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5.3.7.4 Internal Variables 


There are no internal variables. R(ZAP1), R(FRP), and R(ZAP2) are used in 


BDRYST. R(MAP1) and R(ZAP2) are used in BDRYCK. 


5.3.7.5 Subroutines Used 


No (sub)subroutlnes are used. 


5.3.7.6 Output 


The values given above - BDRYOK, FREELN, FWA, and MOVECT are set by BDRYST. 


BDRYCK decrements FREELN and resets R(MA) if necessary. The D accumulator is 


used as a done flag. 


5.3.7.7 Description 


BDRYST: (Boundary Set Entry Point) 


Compute FREELN = (LWA+1) - Start Address 


If 
IDVECT <- FREELN 
Then BDRYOK - True 
Else BDRYOK s False 


EXBDSC: (Exit Boundary Set/Check) 


Return ready for another BDRYCK Subroutine Call 


BDRYCK: (Boundary Check Entry point) 


If BDRYOK is True 
Then Goto CKMVDN 


Decrement FREELN, If not #0000 
Then Goto CKMVDN 


Reset Pointer to FWA, Set BDRYOK True 
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CKMVDN: (Check Move Done) 


Decrement MOVECT, If #0000 
Then Set Done Flag #00 
Else Done Flag is <> #00 


Exit through EXBDSC 
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6.0 RUN TIME PROGRAMS 


As was mentioned in Section 3.5, Development System Support, no debug 


support was provided. 


Thus for setting breakpoints, testing or setting 


registers and memory locations, or for restarting the program, Run Time code had 


to be developed. Three types were developed: ( 1) a System Run ( SYSRUN) 
program; (2) a FIFO loading (LDFIFO) program; and (3) a series of Tracing 
programs. Additionally a Sine Wave table (SINWAV) was used to load the FIFOs 
with various frequency sine waves, and PQUAKE and SQUAKE earthquake listings 


were captured for convenient regeneration of time series data. 


These programs are interfaced to the Program Code with manually inserted 


Long Branches. 


These Long Branches were originally overwritten onto the code; 


later No-Operations (NOPs, IC4C4C4 for the 1802) were inserted at strategic 


locations for the breakpoints. In this way the FFT/FIT subprograms were cut up 


into manageable (debuggable) sections. 


6.1 Operation 


6.1.1 Purpose 


The general purposes of the Run Time Code are: 


(1) SYSRUN 
Saves RCA Development System (Monitor) Registers, 
Loads variable and static FFT/FIT Program Registers, 
Calls the FFT/FIT Program to be run, 
upon FFT/FIT Program Return, saves Program Registers, 
may Print Registers and/or Memory data, or nothing, 
Returns to Monitor or to FFT/FIT Program. 
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(2) LDFIFO Loads either P or S FIFO with either: 
Zeros; 
User directed Geometric Series; or 
Sine Wave of selected frequency. 


(3) Trace Programs These are overlaid onto the FFT/FIT program, SYSRUN, and 
LDFIFO code to set desired Control Flow for the test in progress. 
Control Flow will usually be: 
Call LDFIFO to input desired data (the Trace program has inserted 
the required LDFIFO Table entries); 
Branch to SYSRUN to Save System, then Load FFT/FIT Program 
Registers; 
SYSRUN then Calls the FFT/FIT Program; 
the Trace program has set the desired Breakpoints and, upon Exit, 
SYSRUN saves the FFT/FIT Program Registers; 
the Trace Program has filled the required Table entries for desired 
Printouts; 
after Printouts the FFT/FIT Program is either Recalled, or Control 
is returned to the Monitor. 


6.1.2 Data Structures 


The Memory Locations, Routine Locations, Variables, and Tables most used by 


the Run Time Code are listed here for convenience. 


6.1.2.1 Memory Locations 


0000 - 3FFF 


Uemory 


0000 - 2FFF ROM 
1700 - 2637 
2660 - 26F6 
26FE - 27FF 
2800 - 2BCl 
2COO - 2CD8 


FFT Programs (Set HI) 
FFT Constants (SYSSET) 
TRGTBL (Trig Table) 
FFT Subroutines 
FFT Programs (Set #2) 


3000 - 3FFF RAM 
3000 - 30FF FRM1 (Fast RAM) 
3000 - 30C3 WORKER Variables 
30C4 - 30DF FFT Global Variables 
30EO - 30FF FFT Local Variables 
30EO - 30FA FIT Global Variables 
3601 - 3AOO YPFIFO 
3AOl - 3EOO YSFIFO 
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The Run Time Programs are loaded into the Development System memory at 


locations above the WORKER locations (above #4000, to H7FFF). 


6.1.2.2 Routine Locations 


WORKER Routines: 
Addr Name 


0033 
0043 
0050 


Description 


--------------------------------------- 


CALL 
RETN 
INTP 


Address of Call Routine 
Address of Return Routine 
Address of Interrupt Routine 


FFT Routines: 
Addr Name 


1700 
1700 
1703 
176D 


1796 


17AO 
17AO 
17A3 


18AO 
18AO 
18A3 


1900 
1900 
1903 


1A60 
1COO 
ID20 


Description 


FFTMN 
P-FFT 
S-FFT 


FFT Main 
P-FFT Call 
S-FFT Call 
SFFT EXIT, after Transmitting S-DATA to BOSS, 
right before EXITing back to Calling routine 
(used in 8085 FULL TRACE as SFFT Break) 
PFFT EXIT, after Transmitting P-DATA to BOSS, 
right before EXITing back to Calling routine 
(used in 8085 FULL TRACE as PFFT Break) 


LNSET 
PLNSET 
SLNSET 


Length Set 
P-Length Set 
S-Length Set 


SCALE 
PSCALE 
SSCALE 


Scale 
P-Scale 
S-Scale 


SHAPE 
PSHAPE 
SSHAPE 


Shape 
P-Shape 
S-Shape 


FFT 
UNSCRM 
ORDER 


FFT Routine 
Unscramble 
Order 


FIT Routines 
Addr Name 


2000 
2100 
2250 
23FO 
2COO 


Description 


--------------------------------------- 


MAGAPX 
SMTGMX 
CKFHAX 
GMACPT 
FOLPL 


Magnitude Approximate 
Smooth and Tag Maximum 
Check FO Maximum 
GAMMA Compute 
FOLPL Compute 
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Run Time Routines 


SYSRUN Functions 
Addr Name 


7000 
7003 
7006 
7009 
700e 
700F 
7012 
7015 
701A 
706D 
70EE 
712F 
7137 
713D 
725E 
73EO 


SYSRUN 
RGPRNT 
PRGDUN 
RGDATA 
FFTRAM 
PFTDTA 
SFTDTA 
FFTDTA 
SYSRUN 


PRMEM 


LDFIFO Functions 
Addr Name 


5100 
5100 
5103 
5106 
5152 
51D2 
522A 
522A 
522E 
5232 
5109 
51D5 
521B 
521E 
521E 
5222 
5226 


LDFIFO 
YPZERO 
YSZERO 
MANINP 


MODSIN 


Description 


--------------------------------------- 


System Run (to #7400) 
Register Print, then Quit 
Program Done, so Quit 
Print Register Data 
Print FFT RAM 
Print P-FFT Data 
Print S-FFT Data 
Print FFT Data 
(after LBR and DIS ,#00) 
In SYSRUN, where FFT/FIT Program Called from 
Directory to Print Outgoing Register Table 
Directory to Print FFT RAM (#30AO + #60) 
Directory to Print FFT OUPUT (YSFFT Data) 
Print Memory 
Ingoing Register Table 
Outgoing Register Table 


Description 


--------------------------------------- 


Load FIFO (to #5244) 
Zero YPFIFO 
Zero YSFIFO 
Manual Input 
Start of MANINP 
End of MANINP 
MANINP Input Table 
MANINP Input P-Table 
MANINP Input S-Table 


INP Value Table 
Modified Sine Input 
Start of MODSIN 
End of MODSIN 
MODSIN Input Table 
MODSIN Input P-Table 
MODSIN Input S-Table 
MODSIN FIFO Pointer and Skip Value 


Development System Monitor Programs 
Addr Name Description 


------ 
80EF DELAY 1 
819C TYPE5D 
81AE TYPE2 
83F9 GOUT20 
8eOO WRAM 


Delay for Print Operation 
Print an ASCII Character (CR, LF, SP) 
Print a Byte as 2 Hex Characters 
Goto UT20 - Return to Monitor 
(branches to #8281 ENTER) 
Registers Stored in RAl1 
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6.1.2.3 Variables 


WORKER Variables 
Addr Name 


3046 
3048 


Description 


--------------------------------------- 


SLAST 
DT 


Time for the Last YSFIFO 
ST Minus PT 


FFT Global Variables 
Addr Name Description 


30C4 
30CS 
30C6 
30C8 
30CA 
30CC 
30CE 
3000 
3002 
3004 
3006 
3008 
30DA 
30DC 
30DE 


--------------------------------------- 


PFTFLG 
BDRYOK 
FREELN 
FWA 
MOVECT 
PFFTLN 
SFFTLN 
FFTLN 
PLNPTR 
SLNPTR 
FLNPTR 
BASE 
TOTLSH 
PSHIFT 
CSVLU 


P-FFT or S-FFT Flag 
Boundary OK Flag 
Free Length Count 
First Word Address of 
ove Out FIFO 
Move Count 
P-FFT Length 
S-FFT Length 
FFT Length 
P-FFT Length Pointer 
S-FFT Length Pointer 
FFT Length Pointer 
Start Address for FFT Data 
Total Shift Value 
P-FIFO Shift Value 
Cosine Value Temporary Storage 


FIT Global Variables 
Addr Name Description 


30EO 
30E2 
30E4 
30E6 
30E8 
30EA 
30EC 
30EE 
30FO 
30F2 


MXADDR 
FMAX 
HXVALU 
MXEXP 
LNFFT 
FO 
GMAINT 
GMAFRC 
MXNINT 
MXNEXP 


Address of Maximum 
Frequency Index of Maximum 
Maximum Value (Integer) 
Maximum Value (Exponent "Shift" Value) 
Length of FFT 
FO, Corner Frequency 
GAMMA Integer 
GAM..
 Frac tion 
Maximum Energy Integer 
Maximum Energy Exponent 
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6.1.2.4 Tables 


Run Time Tables 
Addr Name 
------ 
4000 SINWAV 
7AOO PQUAKE 
7BOO SQUAKE 


Description 


Sine Wave (to #41FF) 
P-Quake Data (to #7A7F) 
S-Quake Data (to #7BFF) 


SINWAV is listed in Appendix B.2.1. PQUAKE and SQUAKE are not included in 


this report. 
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6.2 SYSRUN (System Run) 


6.2.1 Function 


This program has five main sections: 


(1) Begin SYSRUN, Save System Registers, Load Program Registers, Call 
FFT/FIT Program; 


(2) Upon FFT/FIT Return, Save Program Registers, (maybe Print them), 
Restore System Registers, Return to Monitor; 


(3) Directories for Printing Memory Blocks; 


(4) Code for Printing Memory Blocks; 


(5) Register Storage Locations. 


Utilizing this code, with the aid of Trace Routines, the user may either: 


(1) Break from the User Program 
Save User Registers 
Return System Registers 
Print User Registers 
Return to Honitor, or 


(2) Break from the User Program 
Save User Registers 
Return System Registers 
Return to Monitor, or 


(3) Break from the User Program 
Save User Registers 
Return System Registers 
Print User Registers 
Return User Registers 
Return to User Program 
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6.2.2 Calling Program 


The calling program varies, but is usually directly from the Monitor program 


(via User direction) or after the LDFIFO routine. 


6.2.3 Inputs 


The User must fill the Print Directories with the address locations which 


are to be printed. 


6.2.4 Internal Variables 


The Register Files could be considered to be Internal Variables. 


6.2.5 Subroutines Used 


The Development System Routines listed in the Section 6.1.2.2 are called. 


Also the program has an Internal Subroutine, Print Memory (PRMEM). 


6.2.6 Output 


Registers and Memory Blocks may be printed. 
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6.2.7 Description 


SYSRUN: (System Run) 


Save System Registers 


Load Variable and Static FFT/FIT Program Registers 


Branch to FFT/FIT Program Code 


--------------------------------------------------------------------------- 


RGPRNT: (Register Print) 


Print Registers, then Quit 


PRGDUN: (Program Done) 


Save Registers 


Return to System Monitor 


--------------------------------------------------------------------------- 


Entry Points for Printing Memory Blocks 


RGDATA: (Print Register Data) 


FFTRfu
: (Print FFT RAM Data) 


PFTDTA: (Print P-FFT Input Data) 


SFTDTA: (Print S-FFT Input Data) 


FFTDTA: (Print FFT Output Data) 


P&
1: (Print Memory Internal Subroutine) 
Called to Print a Block of Memory, it handles FIFO Address Wraparound 
R6 is a Pointer to Directory of: 
Start Address, 
Last Address, 
First Address. 
R6 + 2 is a Pointer to the Length to be Printed. 


Save Program Registers 


Get Addresses, Values at Pointers 


Prepare for Printout 


Type CR/LF 
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LNOUT: (Line Out) 


Type CR/LF 


Print Data Address 


TSPACE: (Type Space) 


Type a Space 


TLOOP: (Type Word Loop) 


Type one Byte 


If Done with Block 
Then Goto EXPRMM 


If Address Wraparound 
Then Reset to FWA 


If End of Line 
Then Goto LNOUT 


If End of Data Word 
Then Goto TSPACE 
Else Goto TLOOP 


EXPRMM: (Exit Print Memory) 


Restore Program Registers 


Return to Calling Program 


TABLES: 


--------------------------------------------------------------------------- 


INTBL: (Ingoing Register Table) 


OUTTBL: (Outgoing Register Table) 
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6.3 LDFIFO (Load FIFO) 


6.3.1 Function 


This routine inputs data to the selected FIFO. Either the FIFO is zeroed, 


loaded with a geometric function (such as a square or triangular wave), or 


loaded with a sine wave of a selected frequency. There are four self-contained 


programs in this routine: 


5100 
5103 
5106 
5109 


YPZERO 
YSZERO 
MANINP 
MODSIN 


Zero YPFIFO 
Zero YSFIFO 
Manual Input 
Modified Sine Input 


6.3.2 Calling Program 


The calling program is usually the Monitor program, under User direction. 


6.3.3 Inputs 


The selections for the MANINP and MODSIN generating tables must be input. 


6.3.4 Internal Variables 


There are no Internal Variables. 


6.3.5 Subroutines Used 


The System Monitor GOUT20 (return to Monitor) routine is called to Exit. 
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6.3.6 Output 


The FIFOs are filled with the desired data. 


6.3.7 Description 


YPZERO: (Zero YPFIFO) 


Initialize Pointer to YPLWA 


PTZROP: (Put Zero into YPFIFO) 


Store #00 


Decrement Pointer, If Not Done 
Then Goto PTZROP 


Exit 


YSZERO: (Zero YSFIFO) 


Initialize Pointer to YSLWA 


PTZROS: (Put Zero into YSFIFO) 


Store 1100 


Decrement Pointer, If Not Done 
Then Goto PTZROS 


Exit 


---------------------------------------------
-------- --------------------- 


MANINP: (Manual Input) 
TABLE1 must have: 
Start Address; 
LWA+1, FWA Pointer Location; 
Initial Value; 
Length of Block; 
Increment/Decrement Value. 
Note: May be additional Blocks 
Enter #ABxx to Stop 


Initialize Pointers to Addresses, Lengths, Values 
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INFRLN: (In Free Length) 


Get Boundary, subtract Start Address (- Free Length) 


Check for Free Length, If Boundary Good 
Then Store Boundary OK Flag True 
Else Store Boundary OK Flag False 


Load Block Length 


STRVLU: (Store Value) 


Store Value 


Increment/Decrement Value by Delta 


Check for Address Wraparound, If LWA+l 
Then Set to FWA 


Decrement Block Length, If Not Done 
Then Goto STRVLU 


Check for Not Done, If Not DAB 
Then Goto INFRLN 


Exit 


MODSIN: (Modified Sine Wave) 
TABLE2 must have: 
FWA, LWA+l Pointer Location; 
Skip Value. 


Initialize Pointers to FIFO, Sine Table 


PASS: 


(Pass Sine Value) 


Pass Sine Value 


If FIFO Pointer to LWA 
Then Exit 


Increment Sine Pointer, If Past LWA 
Then set into FWA 


Goto PASS 
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6.4 Data Input 


LDFIFO, a program to load the FIFO with either zeros, a geometric sequence, 


or a sine wave of selected frequency, has already been explained (Section 6.3). 


Three other capabilities exist for loading the FIFO with data. 


(1) analog magnetic tape recordings of various earthquake data. 


(2) a simulated earthquake generated by a dedicated 8085 microcomputer 


system which outputs a frequency wave at a given amplitude to establish 


a steady-state baseline, then a P-Wave, and finally as-Wave. 


This 


capability was supplied by the technicians at the UCB Seismographic 


Station and proven to be invaluable to the system debugging and 


validation. 


(3) the stored, digitized recordings of the 8085 earthquake sequence. 


It should be noted that the third method tests the FFT/FIT operation only, 


while the first two capabilities test the entire WORKER, and even the BOSS and 


WORKER, system. 


130 . 



ASP FFT program 
Run Time Programs 


6.5 Trace Programs 


As has previously been mentioned, Trace Programs were developed to direct 
the Control Flow of the procedures while testing the operation of the FFT/FIT 
code. As such they were short, terse patches that were written on an " as 


needed" basis. Numerous versions of the programs were written, and they proved 


essential in supporting the Debugging procedure. 


Five samples of these code sections will be presented: 


(1) FFT Complete 


Trace; (2) FFT Out Trace; (3) FFT No Trace; (4) Multi FFT; and (5) 8085 Full 


Trace. The code itself is contained in Appendix B. These programs will not be 


described in any great detail but are included to give the reader an example of 


this method and capability. In addition their operation will explain how the 


Program Validation Code listed in Appendix D was generated. 


6.5.1 FFT Complete Trace 


FFT Complete Trace is the type of program used to generate the listings 


contained in the Program Validation Output, Subprogram Validation Series 


(Appendix Section D.1). With this program after either MANINP or MODSIN is run 


SYSRUN is called, branching either to PFFT or SFFT. Then as the program 


continues, at the end of every significant section (at the end of every 


subprogram, and often at locations internal to the subprograms) Print Memory 


(PRMEM) is called to print the outputs of that section. At the conclusion of 


the entire FFT/FIT call control is returned to the System Monitor (@ line 


#0079). 
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6.5.2 FFT Out Trace 


FFT Out Trace is similar to FFT Complete Trace except that only the final 


outputs of the FFT Call are printed. This is the type of code which generated 


the Program Validaton Input/Output results listed in Appendix Section D.2 except 


of course for the lack of an Input print. It should also be noted that this 


code may be overlaid onto the FFT Complete Trace to change the desired output. 


6.5.3 FFT No Trace 


This code is used to overlay onto either of the two previous programs to 


turn off the output printings. 


6.5.4 Multi FFT 


Multi FFT is used to test the FFT/FIT function for sensitivity to the 


starting address of the time series data (the Address Wraparound condition). 


This is accomplished by passing either the PQUAKE or SQUAKE data to the YP or 


YSFIFO, initially at the first address, then incremented by two, up to the last 


address. FFT/FIT is called each time, and at each return the FIT variables are 


printed. 


6.5.5 8085 Full Trace 


This program is used in conjunction with the 8085 Earthquake Generator 


(Section 6.4). 


It supports normal run time operation for the whole WORKER 


system, yet breaks to print the FIT output variables. 


In addition, if 


out-of-bounds data results (for PFFT FO <> 5, for SFFT FO <> 6) the program also 


breaks to print the entire extent of FFT data. This was necessary to trap an 


intermittent error resulting from a difference in technique between checking for 
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intermittent error resulting from a difference in technique between checking for 


the address wraparound condition between the WORKER and the FFT/FIT code (see 


Section 6.6). 
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6.6 Problems 


Two significant problems occurred at the interface between the WORKER and 


the FFT/FIT programs. 


The first problem involves the use of the SHOLD value 


with the P-FFTs. SHOLD is the value that allows or prevents the WORKER from 


logging seismographic entries into the YSFIFO. For the P-FFT the YSFIFO is used 


for the in-place computation and thus SHOLD should be set to prevent data 


overwrite. 


This was not done in the WORKER and must be set, and later cleared, 


by the FFTMN program (Section 5.0.1). 


The second problem involves checking for the Address wraparound condition 
(the resetting of the addresses from past LWA+1 to the FWA). In the WORKER the 
test for checking that the address is not past the end of the FIFO is done 


before the data is stored. 


In the FFT/FIT code this test is done after the 


previous location is accessed, as soon as the pointer is incremented. 


Thus if 


an FFT is called when OLDEST (the pointer to the start of the FFT data) points 


past the LWA+1 this will never be detected. The result is that once every 512 


FFTs (on average) the system outputs garbage. 


The 8085 Full Trace program was used to trap this condition (Section 6.5.5). 


The fix is to have the first task for either a P or an SFFT call check the 


OLDEST pointer for having been run past the end of the FIFO (to past LWA+1). 


The pointer is reset to the FIFO FWA if necessary. This fix is also implemented 


in the FFTMN program (Section 5.0.1). 
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7.0 PROGRA}1 VALIDATION 


Once the program is debugged and error-free it is time to confirm correct 


operation. 


As was described in the Structured Programming Techniques Section 


(Section 3.6.1) the program was, as much as possible, partitioned into modular 


manageable sections which were then individually validated. The control flow 


between these sections was then verified. The Run Time code was essential in 


these activities. 


In this fashion the entire program was confirmed to be operating correctly. 


In most cases this is a boring and time-consuming operation. However with the 


validation of the FFT some interesting outputs resulted. Contained in Appendix 


D is the Program Validation Output for the FFT operation. It is separated into 


two sections: 


(1) Subprogram Validation Series; 


and 


(2) 


Input/Output 


Validation Series. 


7.1 Subprogram Validation Series 


The Subprogram Validation Series demonstrates the operation of a PFFT with 


an Impulse Input and an SFFT with a DC Time Series Input. In both cases Output 


is listed after the operation of each of the various programs, concluding with 


the Magnitude Output. Operation on the Impulse Time Series Input results in a 


constant energy output for all frequency components. For a DC Time Series Input 


all the output energy is contained in the a Hz value. Correct operation of the 


Total Shift (TOTLSH) value was also validated but in the interest of clarity is 


not listed here. 
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7.2 Input/Output Validation Series 


The Input/Output Validation Series demonstrates the output resulting from a 


set of boxcar function time inputs with widths ranging (1, 2, ..., N/4, N/2, and 


N). As expected the frequency outputs are (sin(x)/x)A2 functions with zeros 


located at (infinity, N/2, every N/4, ..., every 2, and all the energy at 0 Hz). 


7.3 Frequency Input 


Various frequency values were also input with the MODSIN function. As long 


as the indexes were even fractions of the sample frequency then impulse 


functions similar to the DC output resulted, located at the correct frequency 


index. If however frequencies were selected which were off these fractions then 


frequency leakage smeared the output spectra. 


Applying the SHAPE function 


improved the output, as expected. 


These outputs are not included in this 


report. 
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8.0 OPERATIONAL RESULTS 


The FFT/FIT program is now debugged and verified, but how does it operate? 


8.1 FFT Processing Times 


Listed below are the processing times for the P and SFFTs. They have been 


measured fairly inaccurately (using a stopwatch), with Best times taken for the 


PFFT and a Range of Times taken for the SFFT. The times are quick enough to be 


useful, in that they put a very small limitation on the amount of time the ASP 


must be off line (and are also small compared to the processing time of the 


BOSS). 


FFT Processing Times I 
+------------------------+ 
N I PFFT I SFFT Range I 
------+--------+---------------+ 
64 0.64 
128 1.40 
256 3.55 
512 


1.36 - 1.72 
3.10 - 3.80 
7.00 - 8.75 


The times are plotted in Figure 8.1.a. 


As expected these times are 


proportional to the N*Log2(N) processing requirement characteristic of the FFT 


algorithm. 


8.2 ASP System Results 


(Quoting from [McEv)). The ASP System was first deployed in September 


through October of 1980 in The Geysers steam field in Northern California. As 


of August 1981 it had also been deployed in three other fields. 


Another ASP 


application has been the monitoring of thermally generated acoustic emissions 


associated with underground storage of nuclear wastes [Maje81). This experiment 


demonstrated the flexibility of ASP in applying earthquake processing techniques 
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Figure 8.1.0 


FFT Processing Times 


to a variety of different scales of interest. 


Since that time a second, lab based system has been built for use by LBL 


geologists. 


In addition the technology developed for the ASP has been 


transitioned to industry. Both the hardware and the software are utilized in a 


commercial unit marketed by Sprengnether Instruments Inc. of St. Louis, MO. A 


number of these units have been built and sold to customers. The FFT/FIT code 


was used in both of these systems without any modification. 
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Throughout this time the FFT/FIT code has operated flawlessly in all of the 


units. 


No errors have resulted and no anomalies have been attributed to its 


operation. The code appears to fulfill the requirement for which it was 


developed. 
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9.0 SUMMARY 


9.1 Results 


(Quoting from [McEv)). 


Overall, the ASP concept has proved to 


be 


well-founded, and is applicable in a variety of situations. Furthermore, 


throughout the experiments described, which followed a thorough burn-in program, 


only one hardware failure has occurred in a PROM chip of one of the WORKERS. 


The field system, mounted in a truck, has been in a variety of weather and dust 


conditions and transported large distances with no adverse effects. The 


low-power DC operation (1 watt/channel), coupled with hardware reliability, 


allows remote field operation for extended periods of time. 


The microearthquake processing software developed for ASP is relatively 


simple, requiring accurate data for effective usage. Our attention to accuracy 


in timing, amplitude, and spectral algorithms was absolutely necessary to the 


successful implementation of ASP. With processing time now reduced to less than 


1 min/earthquake, the goals of cost-effectiveness and real-time results have 


been attained with no compromise in quality. 
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9.2 Conclusion 


The FFT/FIT program has been integrated into an Automated Seismic Processor 


System for Microearthquake Networks and is being used to calculate the Power 


Spectral Density of earthquake energy for each of a number of seismometers. The 


resultant spectra is FIT for Long Period Level, Corner Frequency, and High 


Frequency Slope. These values are available to the geologists and geophysicists 


in an on-site, real-time mode and are of great assistance in their studies of 


microearthquakes and other seismic activities. The overall system has operated 


without significant difficulty for over 5 years and has proved a useful and 


valuable tool. 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 


XFWA=BBUFF 
XLWA=XFWA+127 
RFWA=XLWA+l 
RLWA=RFWA+127 


IFWA=RLWA+l 
ILWA=IFWA+79 
OFWA=I LWA+l 
OLWA
OFWA+79 


SFWA=OLWA+l 
SLWA=SFWA+79 


. .REGISTER NAMES 


ZAP=fJOO 
pc=fJ03 
DSP=fJO 7 
FRP=fJ08 
MP=fJ09 


ZAP2=fJOA 
ZAP3=fJOB 
ZAPl=fJOC 
MA=fJOD 
MQ=fJOE 
AC=/IOF 


. . BUSS 
..XMIT BUFFER 1ST WORD ADDR 


..RECEIVE BUFF FWA 


. .UART 
. . INPUT BUFFER 


. . OUTPUT BUFFER 


. .MISC 
..STRING BUFFER 


..RO IS SCRATCH PAD 
..NORMAL PROG COUNTER 
..DATA STACK POINTER 
..FAST RAM POINTER 
..MESSAGE POINTER 


..ARITH SCTATCHPAD 
..ARITH MEM ADDR 
..ARITH ACC EXTENSION 
..ARITH ACCUMULATOR 


..******** 
..WSYMBOLS SYMBOLS USED BY WOID{ER 
..******** 


SLAST=#3046 ..TIME FOR LAST YSFIFO 
DT=SLAST+2 ..ST MINUS PT 


..FIFOS ARE DEFINED BY 9 BYTE TABLES AS FOLLOWS: 
....BYTES 1,2 ADDRESS OF OLDEST DATA (H,L) 
....BYTES 3,4 FIFO LWA+l (H,L) 
....BYTES 5,6 FIFO FWA (H,L) 
....BYTES 7,8,9 FIFO RUNNING SUM (L,M,H) 


YPTBL=-fJ30A5 
YSTBL=YPTBL+9 


A-2 
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0000 0077 . . FIFOS THEMSELVES 
0000 0078 
0000 0079 YPFWA=fJ3601 . . YPFIFO 
0000 0080 YPLWA=YPFWA+1023 
0000 0081 YSFWA=YPLWA+l . . YSFIFO 
0000 0082 YSLWA=YSFWA+1023 
0000 0083 
0000 0084 
0000 0085 . .(HEADER) 
0000 0086 ..************************************************** 
0000 0087 ..(ALSO) 
0000 0088 ..EXTERNAL ROUTINUES 
0000 0089 
0000 0090 CALL=fJ0033 . . CALL 
0000 0091 RETN=fJ0043 . .RETURN 
0000 0092 INTP=fJ0050 . . INTERRUPT 
0000 0093 XBUSS=fJ010C ..BUSS TRANSMIT 
0000 0094 MOVE=fJ0115 ..BLOCK MOVE 
0000 0095 BMESS=fJ0118 ..BUSS MESSAGE FO&
 
0000 0096 
0000 0097 
0000 0098 ..************************************************** 
0000 0099 ..(NEW) 
0000 0100 
0000 0101 
0000 0102 . . ********** 
0000 0103 ..FFTSYMBOLS SYMBOLS USED IN WORKER FFT 
0000 0104 ..********** 
0000 0105 
0000 0106 
0000 0107 ..*********************************** 
0000 0108 ..***** IN FAST RAM (FRAM) ********** 
0000 0109 . . *********************************** 
0000 0110 
0000 0111 . . FLAGS 
0000 0112 
0000 0113 PFTFLG=YSTBL+22 ..P-FFT/S-FFT FLAG 
0000 0114 BDRYOK=-PFTFLG+1 ..BOUNDARY OK FLAG 
0000 0115 
0000 0116 . . MOVE VARIABLES 
0000 0117 
0000 0118 FREELN=BDRYOK+l ..FREE LENGTH 
0000 0119 FWA=FREELN+2 ..FWA OF MOVE OUT FIFO 
0000 0120 MOVECT=FWA+2 . . nOVE COUNT 
0000 0121 
0000 0122 . .LENGTH VALUES 
0000 0123 
0000 0124 PFFTLN=t10VECT+2 ..P-FFT LENGTH 
0000 0125 SFFTLN=PFFTLN+2 ..S-FFT LENGTH 
0000 0126 FFTLN=SFFTLN+2 ..FFT LENGTH 
0000 0127 
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0000 0128 ..LENGTH POINTERS 
0000 0129 
0000 0130 PLNPTR=FFTLN+2 ..P-LENGTH POINTER 
0000 0131 SLNPTR=PLNPTR+2 ..S-LENGTH POINTER 
0000 0132 FLNPTR=SLNPTR+2 ..FFT-LENGTH POINTER 
0000 0133 
0000 0134 ..START ADDRESS FOR FFT DATA 
0000 0135 
0000 0136 BASE=FLNPTR+2 
0000 0137 
0000 0138 ..SCALE VALUES 
0000 0139 
0000 0140 TOTLSH=BASE+2 ..TOTAL SHIFT VALUE 
0000 0141 PSH IFT=TOTLSH+2 ..P-FIFO SHIFT VALUE 
0000 0142 
0000 0143 ..SHAPE/FFT VALUE 
0000 0144 
0000 0145 CSVLU=PSHIFT+2 ..COSINE VALUE 
0000 0146 
0000 0147 
0000 0148 . . *********************** 
0000 0149 ..***** IN ROM ********** 
0000 0150 ..*********************** 
0000 0151 
0000 0152 
0000 0153 ..***** LENGTH SET TABLES ********** 
0000 0154 
0000 0155 ..THE LENGTH SET TABLES ARE DEFINED BY 10 BYTE 
0000 0156 ..DIRECTORIES AS FOLLOWS: 
0000 0157 . . . . BYTES 0,1 DT LENGTH BOUNDARY 
0000 0158 . . . . BYTES 2,3 P-LENGTH VALUE 
0000 0159 . . . . BYTES 4,5 S-LENGTH VALUE 
0000 0160 ....BYTES 6,7 POINTER INTO P-SHAPE TABLE 
0000 0161 . . . . BYTES 8,9 POINTER INTO S-SHAPE TABLE 
0000 0162 
0000 0163 FFTTBL=-il2 660 ..FFT TABLES (2660-27FF) 
0000 0164 
0000 0165 PDEFLT=FFTTBL ..SOLO P-WAVE DEFAULT 
0000 0166 
0000 0167 DTl28=PDEFLT+A ..BOUNDARY TABLES 
0000 0168 DT600=DTl28+A 
0000 0169 DTMAX=DT600+A 
0000 0170 
0000 0171 
0000 0172 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 


ASP FFT Program 
Program Code 


..***** P & S SHAPE TABLES ********** 


..FIRST THE P-SHAPE FUNCTION 
....BYTES 0,1 THE COUNT FOR 75% MOVE 
....ByTES 2,3 COUNT FOR 25% TAIL SHAPE 
....ByTES 4,5 SKIP VALUE FOR TRIG TABLE 


..THERE WILL BE ONE TABLE FOR EACH LENGTH P-FFT 
(64,128,256,512) 


PLN64=DTMAX+A 
PLN128=-PLN64+6 
PLN256=-PLN128+6 
PLN512=-PLN256+6 


..THEN THE S-SHAPE FUNCTION 
....ByTES 0,1 COUNT FOR 12.5% FRONT SHAPE 
....ByTES 2,3 SKIP VALUE FOR 12.5% FRONT 
....ByTES 4,5 COUNT FOR 62.5% MIDDLE 
....ByTES 6,7 COUNT FOR 25% TAIL SHAPE 
....BYTES 8,9 SKIP VALUE FOR 25% REAR 


..THERE WILL BE ONE TABLE FOR EACH LENGTH S-FFT 
(128,256,512) 


SLN128=-PLN512+6 
SLN256=-SLN128+ 10 
SLN512=-SLN256+10 


..***** TRIG TABLE DIRECTORY ********** 


..THE TRIG DATA TABLE IS DEFINED 
..WITH A 4 BYTE DIRECTORY AS SHOWN BELOW: 


TRGDIR=SLN512+10 


..TRIG TABLE DIRECTORY CONTENTS 


TRGLWA=-U26FE+256 ..TRIG LAST WORD ADDRESS 
TRGFWA=-U26FE ..TRIG FIRST WORD ADDRESS 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 


..***** BIT MASK TABLE ********** 


..THE BIT MASK TABLE IS USED IN THE FFT ALGORITIDI 
..IT CONSISTS OF 10 ENTRIES 
..0400. 0200. .... 0040. 0000 


BITTBL=-TRGDIR+4 


..***** FFT LENGTH TABLES ********** 


. . THESE TABLES 
. . . . BYTES 0.1 
....BYTES 2.3 
... . AND MORE 


ARE USED DURING THE FFT ALGORITHM 
POINTER TO THE BIT MASK TABLE 
SHIFT COUNT FOR BITREV ROUTINUE 


FLN512=-BITTBL+20 
FLN256=FLN512+8 
FLN128=-FLN256+8 
FL N64=- FLN128+8 
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A.2 FFT/FIT CODE 


A.2.0.1 FFTMN (FFT Main) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 ..FFTMN.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 


ASP FFT Program 
Program Code 


24 MAY 80 


4:15 PM 


..################################################## 
FFTMN.SR 


..THIS IS THE CALLING PROGRAM FOR CONTROL OF THE 
..SPECTRA CO
æUTATION AND FITTING PROGRAM 


..IT HAS TWO ENTRY POINTS: 
1. P-FFT CALL. OR 
2. S-FFT CALL 
..AND IT THEN BRANCHES FROM THERE TO THE VARIOUS 
. .SUBROUTINUES 
..################################################## 


..EXTERNAL ROUTINUES 
LNSET=-fI17 AO 
PLNSET=-LNSET 
SLNSET=-LNSET+3 
SCALE=-#18AO 
PSCALE=SCALE 
SSCALE=SCALE+3 
SHAPE=-fI1900 
PSHAPE=5HAPE 
SSHAPE=SHAPE+3 
FFT=#lA60 
UNSCRM=#lCOO 
ORDER=/I1D20 
MAGAPX=f/2000 
SMTGMX=#2100 
CKFMAX=-#2250 
GMACPT=t/23FO 
FOLPL=f/2COO 
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. .LENGTH SET 
. .P-LENGTH SET 
..S-LENGTH SET 
. . SCALE 
..P-FFT SCALE 
..S-FFT SCALE 
. . SHAPE 
. .P-FFT SHAPE 
. .S-FFT SHAPE 
. . FFT ALGORITIDt 
..UNSRAMBLE 
..COLUMN REORDER 
..COMPUTE MAGNITUDE SQUARED 
..SMOOTH AND 
IMUM TAG 
..CHECK FMAX FOR VALIDITY 
. .GAM
1A COMPUTE 
..FO & LPL COMPUTE 



ASP FFT Program 
Program Code 
0000 0276 
0000 0277 
0000 0278 
0000 0279 
0000 0280 
0000 0281 
0000 0282 
0000 0283 
0000 0284 
0000 0285 
0000 0286 
0000 0287 
1700 0288 
1700 0289 
1700 0290 
1700 ; 0291 
1700 C01706; 0292 
1703 COl716; 0293 
1706 0294 
1706 0295 
1706 0296 
1706 0297 
1706 0298 
1706 F830B8BC; 0299 
170A ; 0300 
170A ; 0301 
170A D417AO; 0302 
170D ; 0303 
170D ; 0304 
170D D418AO; 0305 
1710 0306 
1710 ; 0307 
1710 C01780; 0308 
1713 0309 
1713 0310 
1713 0311 
1713 0312 
1713 0313 
1713 0314 
1713 0315 
1780 F825A8; 0316 
1783 F8FF58; 0317 
1786 0318 
1786 ; 0319 
1786 D41900; 0320 
1789 0321 
1789 ; 0322 
1789 COll13; 0323 
ll8C 0324 


..INTERNAL VARIABLES 


LNFFTaU30E8 
FO-LNFFT+2 
GMAINT-FO+2 
GMAFRC-GMAINT+2 
MXNI NT""GMAFRC+2 
MXNEXP""MXNINT+2 


ORG 111700 


. .LENGTH OF FFT 
..CORNER FREQUENCY 
. .GAMMA INTEGER 
. . GAMMA FRACTION 
..MAXIMUM ENERGY INTEGER 
..MAXIMUM ENERGY EXPONENT 
..(CORRECTED MAX VALUE. 
..THEN LONG PERIOD LEVEL) 


..************************************************** 
.. BEGIN HERE 


LBR PFFT 
LBR SFFT 


. .GOTO P-FFT 
. .GOTO S-FFT 


..************************************************** 
PFFT: ..P-FFT CALL 
..GET HIGH R(FRP) & R(ZAPl) TO FRAM 
LDI A.l(FRAM); PHI FRP; PHI ZAPI 


..CALL P-LENGTH SET 
CALL PLNSET 


..CALL P-FFT SCALE 
CALL PSCALE 


..JUMP OUT TO 1ST PATCH 
LBR PATCHI 


..BUT REMEMBER WHERE YOU CAME FROM 
MAINl: ..PATCH #1 RETURN ADDRESS 


..AT 1ST PATCH SET SHOLD 
..SO ADC DOESN'T OVERWRITE YSFIFO 
ORG #1780 
PATCHl: LDI #25; PLO FRP ..#25 - A.O(SHOLD) 
LDI !IFF; STR FRP 


. . CALL P-SHAPE FROM HERE 
CALL PSHAPE 


..THEN RETURN TO MAIN BODY 
LBR t1AINl 
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178C 0325 
178C 0326 
1713 0327 
1713 0328 
1713 COl723 ; 0329 
1716 0330 
1716 0331 
1716 0332 
1716 0333 
1716 0334 
1716 F830B8BC; 0335 
171A 0336 
171A ; 0337 
171A D417A3; 0338 
171D 0339 
171D 0340 
171D D418A3; 0341 
1720 0342 
1720 0343 
1720 041903; 0344 
1723 0345 
1723 0346 
1723 0347 
1723 0348 
1723 0349 
1723 0350 
1723 041A60; 0351 
1726 0352 
1726 ; 0353 
1726 041COO; 0354 
1729 0355 
1729 ; 0356 
1729 041020; 0357 
172C 0358 
172C 0359 
172C 042000; 0360 
172F 0361 
172F 0362 
172F 042100; 0363 
1732 0364 
1732 0365 
1732 042250; 0366 
1735 0367 
1735 0368 
1735 3073; 0369 
1737 0370 
1737 0371 
1737 0372 
1737 0373 


ASP FFT Program 
Program Code 


. . CONTINUE 
ORG MAINl 


..JUMP TO FFT COMMON 
LBR FFTCOM 


..************************************************** 
SFFT: . .S-FFT CALL 
..GET HIGH R(FRP) & R(ZAP1) TO FRAM 
LDI A.1(FRAM); PHI FRP; PHI ZAP1 


..CALL S-LENGTH SET 
CALL SLNSET 


..CALL S-FFT SCALE 
CALL SSCALE 


..CALL S-FFT SHAPE 
CALL SSHAPE 


. .AND FALL THROUGH TO FFT COMMON 


..************************************************** 


FFTCOM: 
..CALL FFT ALGORITHM 
CALL FFT 


..FFT COMMON 


..CALL UNSCRAMBLE ROUTINUE 
CALL UNSCRM 


..CALL COLUMN REORDER 
CALL ORDER 


..CALL MAGNITUDE APPROXIMATE 
CALL MAGAPX 


..CALL SMOOTH & :
IMUM ROUTINUE 
CALL SMTGMX. 


..CALL ROUTINUE TO CHECK FOR F
 VALID, 
CALL CKFt
 


..ON RETURN, BRANCH OUT TO PATCH #2 
BR PATCH2 


..BUT REMEMBER WHERE YOU CM1E FROM 
MAIN2: ..PATCH H2 RETURN ADDRESS 
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1737 
1737 
1773 
1774 
1777 
1777 
1777 
1777 , 
1777 COl737; 
177A 
177A ; 
177A ; 
1737 ; 
1737 ; 
1737 D423FO; 
173A ; 
173A ; 
173A D42COO; 
173D ; 
173D ; 
173D ; 
173D ; 
173D F8C4A8; 
1740 08; 
1741 3259; 
1743 
1743 
1743 ; 
1743 D40118; 
1746 06; 
1747 46; 
1748 30E8; 
174A 30EA; 
174C 30FO; 
174E 30F2; 
1750 30EC; 
1752 30EE; 
1754 
1754 , 
1754 D4010C; 
1757 
1757 , 
1757 3090; 
1759 
1759 
1759 
1759 


, 
8F; 
CAl73D; 


. .FROH CKFMAX, IF FMAX INVALID THEN R(AC.O) 
ORG 111773 
PATCH2: GLO AC 
LBNZ TRRSLT 


NOT 1100 


0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 ..ELSE RETURN TO BODY OF PROGRAM 
0382 LBR MAIN2 
0383 
0384 .. CONTINUE 
0385 ORG MAIN2 
0386 
0387 ..CALL GAMMA COMPUTE 
0388 CALL GMACPT 
0389 
0390 ..CALL FO & LPL COMPUTE 
0391 CALL FOLPL 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 . .ELSE 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 ..SEND RESULTS, THEN EXIT TO WORKER 
0413 CALL XBUSS 
0414 
0415 ..THEN BRANCH OUT TO 3RD PATCH 
0416 BR PATCH3 
0417 
0418 ..BUT REMEMBER WHERE YOU CAME FROM 
0419 MAIN3: ..PATCH #3 RETURN ADDRESS 
0420 


..IF NO GOOD, THEN 
..GOTO TRANSMIT RESULTS 
..(WITH ERROR FLAG) 


TRRSLT: . .TRANSMIT 
..CALL TO TRANSMIT RESULTS 
..CHECK FOR P-FFT 
LDI A.O(PFTFLG); PLO FRP 
LDN FRP 
BZ SNDSFT 


RESULTS 


..IF IT'S A S-FFT, THEN 
..GOTO SEND S-FFT RESULTS 


IT'S A P-FFT, 
CALL BMESS 
,1106 
,T'F' 


GET MESSAGE READY 


,A(LNFFT) 
,A(FO) 
,A(MXNINT) 
,A(MXNEXP) 
,A(GMAINT) 
,A(GMAFRC) 
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1759 
1759 ; 
1790 F825A8; 
1793 F80058; 
1796 
1796 
1796 306D; 
1798 
1798 
1798 
1759 
1759 
1759 ; 
1759 040118; 
175C 06; 
175D 47; 
175E 30E8; 
1760 30EA; 
1762 30FO; 
1764 30F2; 
1766 30EC; 
1768 30EE; 
176A ; 
176A ; 
176A D4010C; 
176D 
176D 
176D 
176D 
1760 
176E 
1771 
1771 
1771 


0421 
0422 
0423 
0424 
0425 
0426 ..THEN RETURN TO MAIN (TO RETURN TO WORKER) 
0427 BR XFFTMN 
0428 
0429 . . CONTINUE 
0430 ORG MAIN3 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 ..SEND S-FFT MESSAGE, THEN RETURN TO WORKER 
0445 CALL XBUSS 
0446 
0447 -------------------------------------------------- 
0448 XFFTIIN: ..EXIT FFT tfAIN 
0449 ..RETURN TO WORKER 
0450 EXIT 
0451 ,#C4C4C4 
0452 
0453 ..""#On#n#onn##n####oo##o#On#OO#H####nO#ø#o##UOO###O 
0454 ..END OF FFTMN.SR 


, 
05 ; 
C4C4C4; 


..SINCE END OF P-FFT COMPUTE, 
ORG 111790 
PATCH3: LDI #25; PLO FRP 
LDI 000; STR FRP 


RELEASE SHOLD 


..#25 
 A.O(SHOLO) 


SNDSFT: 
..GET MESSAGE READY 
CALL BMESS 
,006 
,T'G' 
,A(LNFFT) 
, A( FO) 
,A(MXNINT) 
,A(MXNEXP) 
,A(GMAINT) 
,A(GMAFRC) 


..SEND S-FFT RESULTS 
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A.2.1 FFT Code 


A.2.1.1 LNSET (Length Set) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 ; 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
17AO C0187C; 
17A3 C0188E; 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 ; 
187C f'8A5A8; 
187F 08FF3A; 
1882 CB17A6; 
1885 
1885 
1885 
1885 
1888 
188B 


, 
F83658; 
C017A6; 


0001 
0002 . .LNSET.SR 
0003 


0241 
0242 ..##úU#######uu#un##u##UU###U####U#UU####U##UU####U# 
0243 LNSET.SR 
0244 
0245 
0246 
0247 
0248 
0249 ..IF 
0250 ..NO 
0251 ..IS 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 ..BUT REMEMBER WHERE YOU CAME FROM 
0267 MAIN12: ..TO CONTINUE PROGRAM 
0268 
0269 
0270 
0271 PATCH1: 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 


24 MAY 80 


7:00 PM 


..THIS PROGRAH SETS THE P-FFT FLAG, THE LENGTH 
VALUES. THE LENGTH POINTERS. AND THE 
BASE VALUE FOR THE FFT ALGORITHM 


A P-FFT HAS BEEN CALLED AND THERE HAS BEEN 
S-WAVE DETECTION THEN THE DEFAULT CONDITION 
SET: 
P-LENGTH =- 128 


..OTHERWISE THE RULES ARE: 
DT <= 128 P-LENGTH=64 S-LENGTH=128 
..128 < DT <=- 600 P-LENGTH=-128 S-LENGTH=256 
..600 < DT <= 32K P-LENGTH=256 S-LENGTH=-512 
..u###n#########UU##UU###Uuu#uuun#uu##u#unu##uun#u#n 


..VECTORS TO INTERNAL 
ORG U17AO 
LBR PATCHl 
LBR PATCH2 


ROUTINUES 


..W/PLNSET. CHECK YP-OLDEST 
..W/SLNSET, CHECK YS-OLDEST 


..WITH PLNSET, CHECK YP-OLOEST FOR YPLWA+l 
ORG 1Il87C 
LDI A.O(YPTBL); PLO FRP 
LON FRP; SaI A.l(YPLWA+l) 
LBNF PLNSET ..IF < YPLWA+l, THEN 
..GOTO SET LENGTH 


..ELSE FORCE TO YPFWA (CORRECT VALUE) 
LOI A.l(YPFWA); STR FRP 
LBR PLNSET ..THEN GOTO SET LENGTH 
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..WITH SLNSET. CHECK YS-OLDEST FOR YSLWA+l 
ORG (/188E 
LDI A.O(YSTBL); PLO FRP 
LDN FRP; SMI A.l(YSLWA+l) 
LBNF SLNSET ..IF < YSLWA+l. THEN 
..GOTO SET LENGTH 


188B ; 
188B ; 
188E F8AEA8; 
1891 08FF3E; 
1894 CB17C1; 
1897 
1897 
1897 ; 
1897 F83A58; 
189A C017Cl; 
189D 
189D 
189D 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 
17A6 . 
17 A6 F8C4; 
17A8 AC; 
17A9 F8FF; 
17AB 5C; 
17AC ; 
17AC ; 
17AC F846; 
17AE A8; 
17AF ; 
17AF ; 
17 AF E8; 
17BO 72; 
17B1 CA17C7; 
1784 72; 
17B5 CA17C7; 
17B8 


0280 
0281 
0282 PATCH2: 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 ..CONTINUE WITH MAIN PROGRAM 
0292 ORG MAIN12 
0293 
0294 ..Ol#O#OO#o#o#no#n#onoo####O#O#nH#O#H#n####o#######D 
0295 PLNSET.SR 
0296 
0297 ..YOU ENTER HERE IF AN P-FFT HAS BEEN CALLED 
0298 
0299 ..THIS SECTION CHECKS IF AN S-WAVE WAS DETECTED 
0300 ..BY LOOKING AT SLAST 
0301 
0302 ..IF 
0303 
0304 ..ELSE (SLAST <> 0). 
0305 
0306 
0307 
0308 PLNSET: 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 . . CHECK 
0321 
0322 
0323 
0324 
0325 
0326 


..ELSE FORCE TO YSFWA (CORRECT VALUE) 
LDI A.1(YSFWA); STR FRP 
LBR SLNSET ..THEN GOTO SET LENGTH 


SLAST 
 0 . NO S-WAVE 
AND P-LENGTH=256 (DEFAULT) 
YOU CONTINUE TO THE P & S 
LENGTH SET ROUTINUE (SLNSET) 
..################################################## 


..P-LENGTH SET (SOLO) 


..SET P-FFT FLAG TRUE 
LDI A.O(PFTFLG) 
PLO ZAP 1 
LDI (IFF 
STR ZAPl 


..LOAD SLAST ADDRESS INTO R(FRP) 
LDr A.O(SLAST) 
PLO FRP 


BYTES FOR NOT 
SEX FRP 
LDXA 
LBNZ DTCHK 
LDXA 
LBNZ DTCHK 


ZERO 
..CHECK HIGH BYTE 


..JUMP OUT IF HAD S 
. .LOW TOO 
. . ETC 
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17B8 ; 
17B8 ; 
17B8 F826; 
17BA B9; 
17BB F862; 
17BD A9; 
17BE ; 
17BE ; 
17BE C017E8; 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 
17C1 , 
17C1 F8C4; 
17C3 AC; 
17C4 F800; 
17C6 5C; 
17C7 
17C7 
17C7 , 
17C7 F848; 
17C9 A8; 
17CA ; 
17CA ; 
17CA E8; 
17CB 72; 
17CC BB; 
17CD 72; 
17CE AB; 
17 CF ; 
17CF ; 
17CF F826; 
17D1 B9; 
17D2 F86A; 
17D4 A9; 
17D5 


0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 


..SLAST IS ZERO, NO S, CHOOSE DEFAULT 
..LOAD P-DEFAULT LENGTH ADDR INTO R(MP) 
LDI A.1(PDEFLT+2) 
PHI MP 
LDI A.0(PDEFLT+2) 
PLO MP 


..AND GO DOWN TO STORE POINTERS 
LBR STPSLN 


..#############################################8#### 
SLNSET.SR 


..YOU ENTER HERE IF AN S-FFT HAS BEEN CALLED 
..OR (FURTHER DOWN) FOR CONTINUING THE P-FFT 
(NOT SELECTING DEFAULT) 


..IT SETS P & S-LENGTH POINTERS 
..ACCORDING TO THE DT RULES ABOVE 
..################################################## 


SLNSET: 


..S-LENGTH SET 


..SET P-FFT FLAG FALSE 
LDI A.O(PFTFLG) 
PLO ZAP 1 
LDI 1100 
STR ZAP1 


..LOAD DT ADDRESS INTO R(FRP) 
DTCHK: ..DT CHECK (P-SET CONTINUE) 
LDI A.O(DT) 
PLO FRP 


..LOAD DT I
TO R(ZAP3) 
SEX FRP 
LDXA 
PHI ZAP3 
LDXA 
PLO ZAP 3 


..GET LOW BOUNDARY ADDRESS INTO R(MP) 
LDI A.1(DTl28) 
PHI MP 
LDI A.0(DTl28) 
PLO r-IP 
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17D5 0376 
17D5 ; 0377 
17D5 E9; 0378 
17D6 19; 0379 
17D7 8B; 0380 
17D8 F5; 0381 
17D9 29; 0382 
17DA 9B; 0383 
17DB 75; 0384 
17DC 0385 
17DC ; 0386 
17DC 19; 0387 
17DD 19; 0388 
17DE 0389 
17DE 0390 
17DE C317E8; 0391 
17El 0392 
17El 0393 
17El 89FC08A9; 0394 
17E5 C017D5; 0395 
17E8 0396 
17E8 0397 
l1E8 0398 
17E8 0399 
17E8 0400 
17E8 0401 
17E8 0402 
17E8 0403 
17E8 0404 
17E8 F8CC; 0405 
17EA A8; 0406 
17EB ; 0407 
17EB ; 0408 
17EB 495818; 0409 
17EE 495818; 0410 
17Fl 0411 
17Fl 0412 
17Fl 495818; 0413 
17F4 495818; 0414 
17F7 0415 
17F7 0416 
17F7 1818; 0417 
17F9 0418 
17F9 0419 
17F9 49; 0420 
17FA 58; 0421 
17FB 18; 0422 
17FC 49; 0423 
17FD 58; 0424 
17FE 18; 0425 
17FF ; 0426 


ASP FFT Program 
Program Code 


..CHECK FOR DT <
 BOUNDARY 
DTBRSB: ..BDRY - DT SUBTRACT 
SEX MP 
INC MP 
GLO ZAP3 
SD 
DEC MP 
GHI ZAP3 
SDB 


..GET AHEAD TWO PLACES 
INC MP 
I NC MP 


..IF RESULT POSITIVE. STORE PLN & SLN VALUES 
LBDF STPSLN 


..ELSE GET TO NEW BOUNDARY 
GLO t1P; ADI 1/08; PLO MP 
LBR DTBRSB 


..************************************************** 
STORE VALUES 
..************************************************** 


STPSLN: 


..STORE PLN & SLN VALUES 


..GET R(FRP) TO P-FFT LENGTH ADDRESS 
LDI A.O(PFFTLN) 
PLO FRP 


..PASS P-FFT LENGTH VALUE 
LDA MP; STR FRP; INC FRP 
LDA MP; STR FRP; INC FRP 


..PASS S-FFT LENGTH 
LDA MP; STR FRP; INC FRP 
LDA MP; STR FRP; INC FRP 


..GET TO P-FFT LENGTH POINTER 
INC FRP; INC FRP 


..LOAD AND STORE PLNPTR 
LDA MP . .LOW 
STR FRP 
I NC FRP 
LDA MP ..AND HIGH TOO 
STR FRP 
INC FRP 
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ASP FFT Program 
Program Code 
17FF ; 0427 
17FF 49; 0428 
1800 58; 0429 
1801 18; 0430 
1802 49; 0431 
1803 58; 0432 
1804 18; 0433 
1805 0434 
1805 ; 0435 
1805 1818; 0436 
1807 0437 
1807 0438 
1807 ; 0439 
1807 OCt 0440 
1808 C21826; 0441 
180B ; 0442 
180B ; 0443 
180B F83A5818; 0444 
180F F80158; 0445 
1812 0446 
1812 ; 0447 
1812 F830B9; 0448 
1815 F8CCA9; 0449 
1818 49BF49AF; 0450 
181C 1919; 0451 
181E 9F5919; 0452 
1821 8F59; 0453 
1823 0454 
1823 0455 
1823 C0183D; 0456 
1826 0457 
1826 0458 
1826 0459 
1826 0460 
1826 F8AEAC; 0461 
1829 0462 
1829 ; 0463 
1829 4C5818; 0464 
182C 4C58; 0465 
182E 0466 
182E ; 0467 
182E F830B9; 0468 
1831 F8CEA9; 0469 
1834 49BF49AF; 0470 
1838 9F5919; 0471 
183B 8F59; 0472 
183D ; 0473 


..WITH SLNPTR TOO 
LDA MP 
STR FRP 
INC FRP 
LDA MP 
STR FRP 
INC FRP 


. . LOW 


. . AND HIGH TOO 


..GET R(FRP) TO BASE 
INC FRP; INC FRP 


..CHECK FOR P-FFT OR S-FFT 
..IF S-FFT BRANCH OUT 
LDN ZAP 1 
LBZ FISSFT ..FFT IS S-FFT 


..ELSE P-FFT, SET BASE - YSFWA 
LDI A.l(YSFWA); STR FRP; INC FRP 
LDI A.O(YSFWA); STR FRP 


..MOVE P-FFT LENGTH VALUE INTO FFT LENGTH 
LDI A.l(PFFTLN); PHI MP 
LDI A.O(PFFTLN); PLO MP 
LDA MP; PHI AC; LDA MP; PLO AC 
INC MP; INC MP 
GHI AC; STR MP; INC MP 
GLO AC; STR MP 


..JUMP DOWN TO SET FFT LENGTH POINTER 
LBR STFLPT ..SET FFT LENGTH POINTER 


FISSFT: ..FFT IS S-FFT 
..SET BASE - S-OLDEST DATA ADDRESS 
..GET R(ZAP1) TO S-OLDEST POINTER 
LDI A.O(YSTBL); PLO ZAPl 


..PASS ADDRESS TO BASE 
LDA ZAP1; STR FRP; INC FRP 
LDA ZAP1; STR FRP 


..MOVE S-FFT LENGTH VALUE INTO FFT LENGTH 
LDI A.l(SFFTLN); PHI MP 
LDI A.O(SFFTLN); PLO MP 
LDA MP; PHI AC; LDA MP; PLO AC 
GHI AC; STR MP; INC MP 
GLO AC; STR l1P 
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183D 
183D 
183D 
183D 
183D 
183D ; 
183D F826B9; 
1840 F8D6A9; 
1843 
1843 
1843 
1849 
184F 
184F 
184F , 
184F F8DEA9; 
1852 
1852 
1852 8FFDOOCA185E; 
1858 9F7D02C21870; 
185E 
185E 
185E , 
185E F8E6A9; 
1861 
1861 
1861 
1867 
186D 
186D 
186D . 
186D F8EEA9; 
1870 
1870 
1870 
1870 ; 
1870 F8D6AC; 
1873 995C1C; 
1876 895C; 
1878 
1878 , 
1878 D5; 
1879 
1879 


. 
8FFDOOCA184F; 
9F7D04C21870; 


, 
8FFDOOCA186D; 
9F7D01C21870; 


ASP FFT Program 
Program Code 


0474 STFLPT: 
0475 ..FFT LENGTH IS IN R(AC) 
0476 ..IF FFT LENGTH - 512, FLNPTR = 
0477 ..IF FFT LENGTH = 256, FLNPTR = 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 f-IB256: 
0488 ..GET R(MP) TO FLN256 
0489 LDI A.0(FLN256); PLO MP 
0490 
0491 
0492 
0493 
0494 
0495 UB128: 
0496 ..GET R(MP) TO FLN128 
0497 LDI A.0(FLN128); PLO MP 
0498 
0499 
0500 
0501 
0502 
0503 MB64: 
0504 . .GET 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 ..AND RETURN 
0515 EXIT 
0516 
0517 


..SET FFT LENGTH POINTER 


FLN512 , 
FLN2S6, ETC. 


..GET R(MP) TO FLN512 
LDI A.1(FLN512); PHI MP 
LDI A.0(FLN512); PLO MP 


..IF LENGTH = 512, THEN GOTO STORE 
GLO AC; SDI #00; LBNZ MB256 
GHI AC; SDBI #04; LBZ SRFLPT 


..MAYBE LENGTH 256 


..IF LENGTH = 256, THEN GOTO STORE 
GLO AC; SDI #00; LBNZ MB128 
GHI AC; SDBI #02; LBZ SRFLPT 


..

YBE LENGTH 128 


..IF LENGTH = 128, THEN GO TO STORE 
GLO AC; SDI #00; LBNZ MB64 
GHI AC; SDBI #01; LBZ SRFLPT 


..MUST BE LENGTH 64 


R(MP) TO FLN64 
LDI A.0(FLN64); PLO MP 
..FALL THROUGH TO STORE 


SRFLPT: ..STORE FFT LENGTH POINTER 
..POINTER AT R(MP) GOES TO FFT LENGTH POINTER 
LDI A.O(FLNPTR); PLO ZAP1 
GHI MP; STR ZAPl; INC ZAP 1 
GLO 
; STR ZAPl 


END 
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Program Code 
A.2.1.2 SCALE (Scale) 


0000 
0000 
0000 


0001 
0002 ..SCALE.SR 
0003 


5 : 00 PM 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
l8AO 
18AO ; 
l8AO C018A6; 
18A3 C018B2; 
l8A6 
18A6 
l8A6 
l8A6 
18A6 
l8A6 F8CCA8; 
18A9 
l8A9 
l8A9 
l8AC 
lBAF 
l8AF 
l8AF C018BB; 
l8B2 
l8B2 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0271 


, 
F830B9; 
F8A5A9; 


20 JAN 80 


..UUUUUUUU#UUHHHUUU##HH#H#U#H##H#H###U#O#H#O#O###### 
SCALE.SR 


..THIS ROUTINUE SCALES THE P-FFT OR THE S-FFT DATA 
..TO THE MAXIMUM VIA USE OF THE DATA SCALE 
..SUBROUTINUE 
.. IN THIS CASE THE MAXIMUM VALUES CAN EXTEND TO 
..#7FFF OR TO #8000 SO MAXSHIFT IS 7 
..########H###############################O######### 


..EXTERNAL ROUTINUES 
DTASCL=#2960 


. .DATA SCALE 


ORG #18AO 
..BEGIN HERE 


LBR PSCALE 
LBR SSCALE 


..GOTO P-FFT SCALE 
..GOTO S-FFT SCALE 


..************************************************** 
PSCALE: ..P-FFT SCALE 
..GET R(FRP) TO LENGTH VALUE 
LDI A.O(PFFTLN); PLO FRP 


..GET R(MP) TO P-OLDEST ADDRESS 
LDI A.l(YPTBL); PHI MP 
L01 A.O(YPTBL); PLO MP 


. . BRANCH TO SCALE COMMON 
LBR SCLCOM 
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l8B2 0278 
l8B2 0279 
l8B2 0280 
l8B2 F8CEA8; 0281 
l8B5 0282 
l8B5 ; 0283 
l8B5 F830B9; 0284 
l8B8 F8AEA9; 0285 
l8BB 0286 
l8BB 0287 
l8BB 0288 
l8BB 0289 
l8BB 0290 
l8BB 0291 
l8BB F830BE; 0292 
l8BE F8DAAE; 0293 
l8Cl F8005ElE5E; 0294 
l8C6 0295 
l8C6 0296 
l8C6 89FC02AC; 0297 
l8CA 0298 
l8CA 0299 
l8CA F800BAF807AA; 0300 
l8DO 0301 
l8DO ; 0302 
l8DO F829BO; 0303 
l8D3 F860AO; 0304 
l8D6 DO; 0305 
l8D7 0306 
l8D7 0307 
l8D7 ; 0308 
l8D7 F8C4A808; 0309 
l8DB C2l8EA; 0310 
l8DE 0311 
l8DE 0312 
l8DE F8DAAC; 0313 
l8El 4CBF4CAF; 0314 
l8E5 0315 
l8E5 0316 
l8E5 9F5ClC; 0317 
l8E8 8F5C; 0318 
l8EA ; 0319 
l8EA ; 0320 
l8EA D5; 0321 
l8EB 0322 
l8EB 0323 
l8EB 0324 
l8EB 0325 


ASP FFT Program 
Program Code 


..************************************************** 
SSCALE: ..S-FFT SCALE 
..GET R(FRP) TO LENGTH VALUE 
LDI A.O(SFFTLN); PLO FRP 


..GET R(MP) TO S-OLDEST ADDRESS 
LDI A.l(YSTBL); PHI MP 
LDI A.O(YSTBL); PLO MP 


..FALL THROUGH TO SCALE COMMON 


..************************************************** 
SCLCOM: . . SCALE COt-mON 
..CLEAR TOTAL SHIFT VALUE 
LDI A.l(TOTLSH); PHI MQ 
LDI A.O(TOTLSH); PLO MQ 
LDI #00; STR MQ; INC MQ; STR MQ 


..GET R(ZAPl) TO LWA+l BOUNDARY 
GLO MP; ADI #02; PLO ZAPI 


..LOAD MAXSHIFT, 7, INTO R(ZAP2) 
LDI #00; PHI ZAP2; LDI #07; PLO ZAP2 


..CALL SCALE DATA 
LDI A.l(DTASCL); PHI ZAP 
LDI A.O(DTASCL); PLO ZAP 
SEP ZAP ..ZAP = DATA SCALE 


..IN SUBROUTINUE TOTAL SHIFT VALUE IS SET 
..ON RETURN CHECK FOR P-FFT 
LDI A.O(PFTFLG); PLO FRP; LDN FRP 
LBZ RETNMN ..IF S-FFT, RETURN TO 11AIN 


..ELSE (P-FFT) GET TOTAL SHIFT VALUE 
LDI A.O(TOTLSH); PLO ZAPI 
LDA ZAPl; PHI AC; LDA ZAPl; PLO AC 


..AND STORE IT INTO P-SHIFT LOCATION 
GHI AC; STR ZAPl; INC ZAPI 
GLO AC; STR ZAPl 


RETNMN: 


. . RETURN TO MAIN 


EXIT 


..###HHH#HH##########H##HUd#U##HU#####U##U#######U## 
..END OF SCALE.SR 
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Program Code 


A.2.1.3 SHAPE (Shape) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 ; 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
1900 C01906; 
1903 C01973; 
1906 ; 
1906 ; 


0001 
0002 .. SHAPE. SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 


20 JAN 80 


5:25 PM 


..##########################0####################### 
SHAPE.SR 


. . WITH 


PSHAPE.SR AND SSHAPE.SR 
..###########################################0##0##0 


..EXTERNAL ROUTINUES 
SUBROT=02800 
CSMULT=-SUBROT+2 
MLTMDL==SUBROT+6 
SHPSET"'SUBROT+14 


SUBRT2=-#2B50 
BDRYST"'SUBRT2+4 
BDRYCK==SUBRT2+6 


..INTERNAL VARIABLES 


..SUBROUTINUE BLOCK 
..COSINE MULTIPLY 
..MIDDLE OF MULTIPLY 
..SHAPE SET 


..SUBROUTINUE BLOCK #2 
. . BOUNDARY SET 
..BOUNDARY CHECK 


CSPTR=CSVLU+14 ..COSINE POINTER 


..VECTORS TO INTERNAL ROUTINUES 
ORG 1/1900 
LBR PSHAPE 
LBR SSHAPE 
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1906 0269 
1906 0270 
1906 0271 
1906 0272 
1906 0273 
1906 0274 
1906 0275 
1906 0276 
1906 0277 
1906 0278 
1906 0279 
1906 0280 
1906 0281 
1906 0282 
1906 0283 
1906 0284 
1906 0285 
1906 0286 
1906 0287 
1906 0288 
1906 0289 
1906 0290 
1906 F8A5AC; 0291 
1909 4CBD; 0292 
190B 4CAD; 0293 
190D 0294 
190D ; 0295 
190D ; 0296 
190D F8D2A8; 0297 
1910 48B9; 0298 
1912 48A9; 0299 
1914 0300 
1914 ; 0301 
1914 F82BBO; 0302 
1917 F854AO; 0303 
191A DO; 0304 
191B 0305 
191B 0306 
191B 0307 
191B 0308 
191B F83ABF; 0309 
191E F801AF; 0310 
1921 0311 
1921 0312 
1921 ; 0313 
1921 4D5FlF; 0314 
1924 4D5FlF; 0315 
1927 0316 


ASP FFT Program 
Program Code 


. . BEGIN HERE 


..#################1####################00#######0## 
PSHAPE.SR 


..THIS PROGRN1 MOVES DATA IN THE YPFIFO 
..TO THE YSFIFO FOR THE FFT CALCULATION 


..THE FIRST 75% OF THE ENTRIES ARE JUST MOVED 
..THE LAST 25% ARE MULTIPLIED BY THE SHAPING 
FUNCTION FOUND IN THE SHPTBL ARRAY 
..##########0##################################0#### 


PSHAPE: 


. .PSHAPE 


..************************************************** 
MOVE 75% OF YPFIFO DATA TO YSFIFO 
..************************************************** 


..INITIALIZE 
..GET PFFT POINTER, R(

), TO P-OLDEST DATA 
LDI A.O(YPTBL); PLO ZAP1 
LDA ZAP1; PHI MA 
LDA ZAP1; PLO MA 
..AND LEAVE R(ZAP1) AT YPLWA+1 


..GET R(MP) TO MOVE LENGTH VIA P-LENGTH POINTER 
LDI A.O(PLNPTR); PLO FRP 
LDA FRP; PHI MP 
LDA FRP; PLO MP 


..CALL BOUNDARY SET FOR BDRYOK & FREELN 
LDI A.1(BDRYST); PHI ZAP 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP = BOUNDARY SET 


..ON RETURN R(MP) IS AT SHAPE COUNT 


..GET R(AC) TO YSFWA 
LDI A.1(YSFWA); PHI AC 
LDI A.O(YSFWA); PLO AC 


MOVDTA: ..MOVE DATA 
..MOVE DATA FROM YPFIFO TO YSFIFO 
LDA MA; STR AC; INC AC 
LDA MA; STR AC; INC AC 
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1927 0317 
1927 0318 
1927 DO; 0319 
1928 0320 
1928 0321 
1928 CAI921 ; 0322 
192B 0323 
192B 0324 
192B 0325 
192B 0326 
192B 0327 
192B 0328 
192B 0329 
192B 0330 
192B 0331 
192B 0332 
192B 0333 
192B 0334 
192B 0335 
192B ; 0336 
192B 0337 
192B 0338 
192B 0339 
192B 0340 
192B 0341 
192B 0342 
192B 0343 
192B F8A7AC; 0344 
192E F854AO; 0345 
1931 DO; 0346 
1932 0347 
1932 0348 
1932 0349 
1932 0350 
1932 F827BE; 0351 
1935 F8FEAE; 0352 
1938 0353 
1938 0354 
1938 0355 
1938 F828BO; 0356 
193B F80EAO; 0357 
193E F8EDA8; 0358 
1941 DO; 0359 
1942 0360 
1942 0361 
1942 0362 


..CALL BOUNDARY CHECK 
..TO TEST FOR YPLWA+l AND MOVE DONE 
SEP ZAP . . ZAP = BOUNDARY CHECK 


..ON RETURN CHECK D FOR DONE FLAG 
LBNZ MOVDTA ..IF NOT DONE, THEN 
..GOTO MOVE MORE DATA 


..ELSE FALL THROUGH TO SHAPE TAIL 


..************************************************** 
SHAPE 25% OF THE TAIL 


..MULTIPLY THE LAST 25% OF THE P-FFT DATA 
..BY THE SHAPING FUNCTION [ -(1/2 COS) + 1/2 
..GENERATED FROM THE TRIG TABLE 
..THEN STORE IT IN THE YSFIFO 


..R(MA) POINTS TO THE CORRECT YPFIFO ENTRY 
..R(MQ) WILL BE THE TRIG TABLE POINTER 
..R(AC) POINTS TO THE DESTINATION 
..************************************************** 


..INITIALIZE 
..CALL BOUNDARY SET FOR BDRYOK AND FREELN 
LDI A.0(YPTBL+2); PLO ZAPI 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP = BOUNDARY SET 


..ON RETURN R(MP) IS AT SKIP VALUE 


..GET R(MQ) TO COS(O) 
LDI A.l(TRGLWA); PHI MQ 
LDI A.O(TRGLWA); PLO MQ 


GTCSVL: ..GET COSINE VALUE 
..GET COSINE VALUE INTO CSVLU VIA SHAPE SET 
LDI A.l(SHPSET); PHI ZAP 
LDI A.O(SHPSET); PLO ZAP 
LDI A.O(CSPTR+l); PLO FRP 
SEP ZAP ..ZAP = SHAPE SET 


..ON RETURN R(FRP) IS AT CSVLU.l 
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1942 
1942 
1942 
1943 
1944 
1947 
1949 
1949 
1949 , 
1949 7676BA; 
194C 
194C ; 
194C 0876; 
194E 
194E 
194E 5828; 
1950 
1950 ; 
1950 9AFC4058; 
1954 ; 
1954 ; 
1954 F802AO; 
1957 DO; 
1958 ; 
1958 ; 
1958 E9; 
1959 198EF7AE; 
195D 299E17BE; 
1961 
1961 
1961 DO; 
1962 
1962 
1962 
1962 
1965 
1968 
1969 
1969 ; 
1969 CA1938; 
196C ; 
196C ; 
196C ; 
196C D5; 
196D C4C4C4C4C4C4; 
1913 ; 
1973 ; 


, 
48; 
FE; 
CB1949; 
F901 ; 


, 
F82BBO; 
F856AO; 
DO; 


0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 COSHLF: ..COSINE HALVE 
0371 ..NOW SHIFT HIGH DOWN TWICE TO DIVIDE BY 2 
0372 RSHR; RSHR; PHI ZAP2 
0373 
0374 ..THEN GET AND SHIFT LOW BYTE 
0375 LDN FRP; SHRC 
0376 
0377 ..STORE LOW 
0378 STR FRP; DEC FRP 
0379 
0380 ..ADD 1/2 AND STORE HIGH 
0381 GHI ZAP2; ADI #40; STR FRP 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 ..GO BACKTO STORE MULTIPLICATION RESULT INTO YSFIFO 
0393 SEP ZAP ..ZAP = MIDDLE OF MULTIPLY 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 


ASP FFT Program 
Program Code 


..DO [ -(1/2 COS) + 1/2 ] 
..GET CSVLU AND CHECK SIGN 
LDA FRP 
SHL 
LBNF COSHLF 
ORI 1101 


BIT 


..CHECK SIGN 


..SET LOW BIT IF NEGATIVE 


..MULTIPLY SHAPE VALUE BY YPFIFO DATA 
LDI A.O(CSMULT); PLO ZAP 
SEP ZAP ..ZAP = COSINE MULTIPLY 


..HALFWAY THROUGH DECREMENT CSPTR BY 
SEX MP 
INC MP; GLO UQ; SM; PLO UQ 
DEC MP; GHI MQ; 5MB; PHI MQ 


SKIP 


..CALL BOUNDARY CHECK 
..TO TEST FOR YPLWA+l AND SHAPE DONE 
LDI A.1(BDRYCK); PHI ZAP 
LDI A.O(BDRYCK); PLO ZAP 
SEP ZAP . . ZAP = BOUNDARY 


CHECK 


..ON RETURN CHECK D FOR DONE FLAG 
LBNZ GTCSVL ..IF NOT DONE, THEN 
..GOTO GET NEXT COS VALUE 


..ELSE RETURN TO FFTMN 
EXIT 
,#C4C4C4C4C4C4 
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1973 0410 
1973 0411 
1973 0412 
1973 0413 
1973 0414 
1973 0415 
1973 0416 
1973 0417 
1973 0418 
1973 0419 
1973 0420 
1973 0421 
1973 0422 
1973 0423 
1973 0424 
1973 0425 
1973 0426 
1973 0427 
1973 0428 
1973 0429 
1973 0430 
1973 0431 
1973 0432 
1973 0433 
1973 0434 
1973 F8AEAC; 0435 
1976 4CBD; 0436 
1978 4CAD; 0437 
197 A ; 0438 
197A ; 0439 
197A ; 0440 
197A F8D4A8; 0441 
197D 48B9; 0442 
197F 48A9; 0443 
1981 0444 
1981 0445 
1981 F82BBO; 0446 
1984 F854AO; 0447 
1987 DO; 0448 
1988 0449 
1988 0450 
1988 0451 
1988 0452 
1988 F825BE; 0453 
198B F8FEAE; 0454 
198E 0455 


..################################################## 
SSHAPE.SR 


..THIS PROGRNf SHAPES THE DATA IN THE YSFIFO 
..FOR THE FFT CALCULATION 


..THE FIRST 12.5% AND THE LAST 25% OF THE ENTRIES 
..ARE MULTIPLIED BY THE SHAPING FUNCTION FOUND IN 
..THE SHPTBL ARRAY 
..THE MIDDLE 62.5% ARE LEFT UNTOUCHED 
..################################################## 


SSHAPE: 


. . SSHAPE 


..************************************************** 
SHAPE THE FIRST 12.5% 


..R(MA) AND R(AC) WILL POINT TO THE CORRECT 
YSFIFO ENTRY 
..R(MQ) WILL BE THE TRIG TABLE POINTER 
..************************************************** 


..INITIALIZE 
..GET SFFT POINTER, R(MA), TO S-OLDEST DATA 
LDI A.O(YSTBL); PLO ZAPl 
LDA ZAP1; PHI MA 
LDA ZAP1; PLO MA 
..AND LEAVE R(ZAP1) AT YSLWA+1 


..GET R(MP) TO S-HEAD SHAPE LENGTH VIA S-LENGTH PTR 
LDI A.O(SLNPTR); PLO FRP 
LDA FRP; PHI MP 
LDA FRP; PLO MP 


..CALL BOUNDARY SET FOR BDRYOK & FREELN 
LDI A.1(BDRYST); PHI ZAP 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP = BOUNDARY SET 


..ON RETURN R(MP) IS AT S-HEAD SKIP VALUE 


..GET R(MQ) TO COS(256) 
LDI A.l(TRGLWA-512); PHI MQ 
LDI A.0(TRGLWA-512); PLO MQ 
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198E 0456 
198E 0457 
198E 9DBF8DAF; 0458 
1992 0459 
1992 ; 0460 
1992 F828BO; 0461 
1995 F80EAO; 0462 
1998 F8EDA8; 0463 
199B DO; 0464 
199C 0465 
199C 0466 
199C 0467 
199C 0468 
199C ; 0469 
199C 48; 0470 
199D FE; 0471 
199E CB19A3; 0472 
19A1 F901; 0473 
19A3 0474 
19A3 0475 
19A3 ; 0476 
19A3 7676BA; 0477 
19A6 0478 
19A6 ; 0479 
19A6 0876; 0480 
19A8 0481 
19A8 ; 0482 
19A8 5828; 0483 
19AA ; 0484 
19AA ; 0485 
19AA 9AFC4058; 0486 
19AE ; 0487 
19AE ; 0488 
19AE F802AO; 0489 
19B1 DO; 0490 
19B2 0491 
19B2 ; 0492 
19B2 E9; 0493 
19B3 198EF4AE; 0494 
19B7 299E74BE; 0495 
19BB ; 0496 
19BB ; 0497 
19BB DO; 0498 
19BC 0499 
19BC 0500 
19BC 0501 
19BC F82BBO; 0502 
19BF F856AO; 0503 
19C2 DO; 0504 
19C3 0505 


ASP FFT Program 
Program Code 


SHDSHP: ..SFFT HEAD SHAPE 
..GET OUTPUT POINTER TO INPUT POINTER 
GHI MA; PHI AC; GLO MA; PLO AC 


..GET COSINE VALUE INTO CSVLU VIA SHAPE SET 
LDI A.l(SHPSET); PHI ZAP 
LDI A.O(SHPSET); PLO ZAP 
LDI A.O(CSPTR+l); PLO FRP 
SEP ZAP ..ZAP 
 SHAPE SET 


..ON RETURN R(FRP) IS AT CSVLU.l 


..DO [ -(1/2 COS) + 1/2 ] 
..GET CSVLU AND CHECK SIGN BIT 
LDA FRP 
SHL ..CHECK SIGN 
LBNF COSHLV 
ORI nOl ..SET LOW BIT IF NEGATIVE 


COSHLV: ..COSINE HALVE 
..NOW SHIFT HIGH DOWN TWICE TO DIVIDE BY 2 
RSHR; RSHR; PHI ZAP2 


..THEN GET AND SHIFT LOW BYTE 
LDN FRP; SHRC 


..STORE LOW 
STR FRP; DEC FRP 


..ADD 1/2 AND STORE HIGH 
GHI ZAP2; ADI n40; STR FRP 


..MULTIPLY SHAPE VALUE BY YPFIFO DATA 
LDI A.O(CSMULT); PLO ZAP 
SEP ZAP ..ZAP = COSINE MULTIPLY 


..HALFWAY THROUGH INCREMENT CSPTR BY SKIP 
SEX MP 
INC MP; GLO HQ; ADD; PLO 
IQ 
DEC MP; GHI MQ; ADC; PHI MQ 


..GO BACKTO STORE MULTIPLICATION RESULT INTO YSFIFO 
SEP ZAP ..ZAP = MIDDLE OF tIDLTIPLY 


..CALL BOUNDARY CHECK 
..TO TEST FOR YPLWA+l AND SHAPE DONE 
LDI A.l(BDRYCK); PHI ZAP 
LDI A.O(BDRYCK); PLO ZAP 
SEP ZAP ..ZAP = BOUNDARY CHECK 
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19C3 0506 
19C3 CA198Ej 0507 
19C6 0508 
19C6 0509 
19C6 0510 
19C6 0511 
19C6 0512 
19C6 0513 
19C6 0514 
19C6 0515 
19C6 0516 
19C6 0517 
19C6 0518 
19C6 1919j 0519 
19C8 0520 
19C8 j 0521 
19C8 E9j 0522 
19C9 198DF4ADj 0523 
19CD 299D74BDj 0524 
19D1 0525 
19D1 0526 
19D1 8DFF01AAj 0527 
19D5 9D7F3EBAj 0528 
19D9 CB19E4j 0529 
19DC 0530 
19DC 0531 
19DC 0532 
19DC 8AFC01ADj 0533 
19EO 9A7C3ABDj 0534 
19E4 0535 
19E4 0536 
19E4 0537 
19E4 0538 


..ON RETURN CHECK D FOR DONE FLAG 
LBNZ SHDSHP ..IF NOT DONE, THEN 
..GOTO SHAPE NEXT HEAD 


..ELSE FALL THRU TO MIDDLE SKIP 


..************************************************** 
SKIP THE MIDDLE 62.5% 
..************************************************** 
I 


..GET R(MP) TO THE MIDDLE COUNT 
INC MP j INC MP 


..ADD IT TO INPUT POINTER 
SEX MP 
INC MPj GLO 
1Aj ADDj PLO MA 
DEC MPj GHI MAj ADCj PHI MA 


..CHECK R(MA) FOR PAST YSLWA+l 
GLO MAj SMI A.O(YSLWA+l)j PLO ZAP2 
GHI MAj 5MBI A.l(YSLWA+l)j PHI ZAP2 
LBNF STLSHP ..IF PTR < LWA+l, THEN 
..GOTO SFFT TAIL SHAPE 


..ELSE ADD OFFSET TO FWA 
GLO ZAP2j ADI A.O(YSFWA)j PLO MA 
GHI ZAP2j ADCI A.l(YSFWA)j PHI MA 


. . AND FALL THRU TO SFFT TAIL SHAPE 
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19E4 
19E4 
19E4 
19E4 
19E4 
19E4 
19E4 
19E4 
19E4 
19E4 . 
19E4 1919; 
19E6 
19E6 
19E6 F8BOAC; 
19E9 F854AO; 
19EC DO; 
19ED 
19ED 
19ED 
19ED 
19ED F827BE; 
19FO F8FEAE; 
19F3 
19F3 
19F3 . 
19F3 9DBF8DAF; 
19F7 
19F7 
19F7 F828BO; 
19FA F80EAO; 
19FD F8EDA8; 
1AOO DO; 
1A01 
1A01 
1A01 
1AOl 
1A01 
1A01 48; 
1A02 FE; 
lA03 CB1A08; 
1A06 F90l; 
1A08 


0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 


ASP FFT Program 
Program Code 


..************************************************** 
SHAPE THE LAST 25% 


..R(MA) AND R(AC) POINT TO THE CORRECT YSFIFO ENTRY 
..R(MQ) WILL BE THE TRIG TABLE POINTER 
..************************************************** 


STLSHP: ..SFFT TAIL SHAPE 
..GET R(MP) TO TAIL SHAPE COUNT 
INC MP; INC MP 


..CALL BOUNDARY SET FOR BDRYOK & FREELN 
LDI A.0(YSTBL+2); PLO ZAP1 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP 
 BOUNDARY SET 


..ON RETURN R(MP) IS AT S-TAIL SKIP VALUE 


..GET R(MQ) TO COS(O) 
LDI A.1(TRGLWA); PHI MQ 
LDI A.O(TRGLWA); PLO MQ 


STLMTH: ..SFFT TAIL SHAPE MATH 
..GET OUTPUT POINTER TO INPUT POINTER 
GHI MA; PHI AC; GLO MA; PLO AC 


..GET COSINE VALUE INTO CSVLU VIA SHAPE SET 
LDI A.1(SHPSET); PHI ZAP 
LDI A.O(SHPSET); PLO ZAP 
LDI A.0(CSPTR+1); PLO FRP 
SEP ZAP . . ZAP 
 SHAPE SET 


..ON RETURN R(FRP) IS AT CSVLU.1 


..DO [ -(1/2 COS) + 1/2 ] 
..GET CSVLU AND CHECK SIGN BIT 
LDA FRP 
SHL ..CHECK 3IGN 
LBNF CSHALF 
ORI #01 ..SET LOW BIT IF NEGATIVE 
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lA08 
lA08 , 
lA08 7676BAj 
lAOB 
lAOB j 
lAOB 0876j 
lAOD 
lAOD j 
lAOD 5828j 
lAOF j 
lAOF 
lAOF 9AFC4058j 
lAl3 j 
lAl3 j 
lAl3 F802AOj 
lA16 DOj 
lAll 
lA17 j 
lA17 E9j 
lA18 198EF7AEj 
lAIC 299E77BE; 
lA20 ; 
lA20 ; 
lA20 DOj 
lA2l 
lA2l 
lA2l 
lA2l F82BBO; 
lA24 F856AO; 
lA27 DO; 
1A28 j 
lA28 j 
1A28 CA19F3; 
lA2B ; 
lA2B j 
lA2B j 
lA2B D5; 
1A2C C4C4C4C4C4C4j 
1A32 
1A32 
1A32 
1A32 
lA32 


0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 


CSHALF: . .COSINE HALVE 
..NOW SHIFT HIGH DOWN TWICE TO DIVIDE BY 2 
RSHRj RSHRj PHI ZAP2 


..THEN GET AND SHIFT LOW BYTE 
LDN FRPj SHRC 


. . STORE LOW 
STR FRPj DEC FRP 


..ADD 1/2 AND STORE HIGH 
GHI ZAP2j ADI f/40j STR FRP 


..MULTIPLY SHAPE VALUE BY YPFIFO DATA 
LDI A.O(CSMULT)j PLO ZAP 
SEP ZAP ..ZAP 
 COSINE MULTIPLY 


..HALFWAY THROUGH DECREMENT CSPTR BY SKIP 
SEX MP 
INC MP; GLO MQj SMj PLO MQ 
DEC l1Pj GHI MQj 5MBj PHI MQ 


..GO BACKTO STORE MULTIPLICATION RESULT INTO YSFIFO 
SEP ZAP ..ZAP 
 MIDDLE OF MULTIPLY 


..CALL BOUNDARY CHECK 
..TO TEST FOR YPLWA+l AND SHAPE DONE 
LDI A.l(BDRYCK)j PHI ZAP 
LDI A.O(BDRYCK)j PLO ZAP 
SEP ZAP ..ZAP 
 BOUNDARY CHECK 


..ON RETURN CHECK D FOR DONE FLAG 
LBNZ STLMTH ..IF NOT DONE, THEN 
..GOTO SHAPE TAIL MATH 


..ELSE RETURN TO FFTMN 
EXIT 
,/lC4C4C4C4C4C4 


..#/1################################################ 
..END OF SHAPE.SR 
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A.2.1.4 FFT 
0000 0001 
0000 0002 ..FFT.SR 20 JAN 80 6: 10 PM 
0000 0003 
0000 0241 
0000 0242 ..UU#U##U###U#########################U############# 
0000 0243 . .FFT.SR 
0000 0244 
0000 0245 ..THIS PROGRAM PERFORMS THE FFT TRANSFORMATION 
0000 0246 ..ON THE DATA IN THE YSFIFO 
0000 0247 ..U####U###U#U################ú##################### 
0000 0248 
0000 0249 
0000 0250 ..EXTERNAL ROUTINUES 
0000 0251 
0000 0252 SUBROT""/'2800 ..SUBROUTINUE BLOCK 
0000 0253 WRPTST""SUBROT ..WRAPAROUND TEST 
0000 0254 CSMULT""SUBROT+2 ..COSINE MULTIPLY 
0000 0255 SNMULT""SUBROT+4 . .SINE tIDLTIPLY 
0000 0256 MLTMDL""S UB ROT+6 ..MIDDLE OF MULTIPLY 
0000 0257 ADDSTF""SUBROT+8 . . ADD & STUFF 
0000 0258 NEWVAL""SUBROT+la . .NEW VALUE 
0000 0259 TRGSET""SUBROT+12 . . TRIG SET 
0000 0260 
0000 0261 DTASCL""#2960 . .DATA SCALE 
0000 0262 
0000 0263 ..INTERNAL VARIABLES 
0000 0264 ..FFT ALGORITHM VARIABLES 
0000 0265 
0000 0266 COLPTR""CSVLU+2 . . COLUMN POINTER 
0000 0267 
0000 0268 NDBTPT""COLPTR+2 ..END BIT POINTER 
0000 0269 CLBTPT""NDBTPT+2 ..COLUMN BIT POINTER 
0000 0270 ENDBIT=CLBTPT+2 . .END BIT VALUE 
0000 0271 COLBIT=ENDBIT+2 ..COLillIN BIT VALUE 
0000 0272 
0000 0273 TRGCTR""COLB IT+2 ..TRIG COUNTER VALUE 
0000 0274 CSPTR=TRGCTR+2 ..COSINE POINTER VALUE 
0000 0275 SNPTR=CSPTR+2 ..SINE POINTER VALUE 
0000 0276 TRG PTR""SNPTR+2 ..TRIG POINTER VALUE 
0000 0277 
0000 0278 LOREAL""TRGPTR+2 ..LOW REAL ADDRESS POINTER 
0000 0279 LOIMAG=LOREAL+2 . .LOW U1AGINARY ADDRESS PTR 
0000 0280 HIREAL=LO Il1AG+2 ..HIGH REAL ADDRESS POI
TER 
0000 0281 HIIMAG""HIREAL+2 ..HIGH IMAGINARY ADDRESS PTR 
0000 0282 
0000 0283 TREAL=HIIMAG+2 . . TEI1PORARY REAL VALUE 
0000 0284 TIMAG""TREAL+2 . . TEMPORARY U1AGINARY VALUE 
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0000 0285 
0000 0286 
0000 0287 
0000 0288 
0000 0289 
1A60 0290 
1A60 0291 
1A60 0292 
1A60 0293 
1A60 0294 
1A60 0295 
1A60 0296 
1A60 0297 
1A60 0298 
1A60 0299 
1A60 0300 
1A60 0301 
1A60 0302 
1A60 0303 
1A60 0304 
1A60 0305 
1A60 0306 
1A60 0307 
1A60 0308 
1A60 F8D6; 0309 
1A62 A8; 0310 
1A63 0311 
1A63 ; 0312 
1A63 E8; 0313 
1A64 72; 0314 
1A65 BE; 0315 
1A66 72; 0316 
1A67 AE; 0317 
1A68 0318 
1A68 0319 
1A68 EE; 0320 
1A69 72; 0321 
1A6A B9; 0322 
lA6B 72; 0323 
lA6C A9; 0324 
lA6D 0325 
lA60 0326 
1A60 F8E5; 0327 
lA6F AC; 0328 
lA70 0329 
tA70 0330 
lA70 EC; 0331 
1All 89; 0332 
lA72 73; 0333 
tA73 99; 0334 
1A74 73; 0335 


..*************************************************1 


ORG II1A60 


. . BEGIN HERE 


FFT: 


..FAST FOURIER TRANSFORM 


..*************************************************
 
BIT/PTR SET 


..FFT-LENGTH POINTER (FLNPTR) IS A POINTER TO A 
TABLE OF POINTERS 
..THOSE POINTERS (FLN64,FLN128,FLN256 & FLN512) 
POINT TO THE FFT-ALGORITHM DATA TABLE 
STARTING WITH THE BIT MASKS 
(0400, 0200, ..., 0040, 0000) 
..THIS ROUTINUE SETS THE POINTERS CORRECTLY 
..************************************************** 


..GET R(FRP) TO FLNPTR (FFT-LENGTH PTR) 
LDI A.O(FLNPTR) 
PLO FRP 


..LOAD FLN### POINTER VALUE INTO R(MQ) 
SEX FRP 
LOXA 
PHI MQ 
LDXA 
PLO MQ 


..GET FFT MASK ADDRESS INTO R(MP) 
SEX MQ 
LOXA 
PHI MP 
LDXA 
PLO t1P 


..GET R(ZAP1) TO CLBTPT (COLBIT POINTER) 
LOI A.O(CLBTPT+l) 
PLO ZAP1 


..STORE FLN### POINTER INTO COLBIT POINTER 
SEX ZAPt 
GLO MP 
STXO 
GHI MP 
STXO 
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lA75 ; 
lA75 ; 
lA75 89; 
lA76 73; 
lA77 99; 
lA78 73; 
lA79 
lA79 ; 
lA79 E9; 
lA7A 72; 
lA7B BA; 
lA7C 72; 
lA7D AA; 
lA7E ; 
lA7E ; 
lA7E F8E9; 
lA80 AC; 
lA81 
lA81 
lA81 EC; 
lA82 8A; 
lA83 73; 
lA84 9A; 
lA85 73; 
lA86 
lA86 . 
lA86 8A; 
lA87 73; 
lA88 9A; 
lA89 73; 
lA8A 
lA8A ; 
lA8A ; 


0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
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..AND INTO NDBTPT (ENDBIT POINTER) 
GLO MP 
STXD 
GHI MP 
STXD 


..GET BIT MASK AT POINTER ADDRESS INTO R(ZAP2) 
SEX MP 
LDXA 
PHI ZAP2 
LDXA 
PLO ZAP 2 


..GET R(ZAP1) TO COLBIT 
LDI A.O(COLBIT+l) 
PLO ZAPl 


..THEN STORE THE MASK INTO COLBIT 
SEX ZAP 1 
GLO ZAP2 
STXD 
GHI ZAP2 
STXD 


..AND INTO END BIT 
GLO ZAP2 
STXD 
GHI ZAP2 
STXD 


.-\-31 



ASP FFT Program 
Program Code 


lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A 
lA8A F8E4; 
lA8C A8; 
lA8D 
lA8D 
lA8D E8; 
lA8E 72; 
lA8F B9; 
lA90 FO; 
lA91 A9; 
lAn 
lA92 
lAn 19; 
lA93 19; 
lA94 
lA94 ; 
lA94 89; 
lA95 73; 
lA96 99; 
lA97 73; 
lA98 
lA98 
lA98 
lA98 E9; 
lA99 72; 
lA9A BA; 
lA9B CAlMS; 
lA9E 72; 
lA9F CAIM6; 
lAA2 
1M2 
1M2 COIBD3; 
1AAS 


0369 ..************************************************** 
0370 .. NEWCOL 
0371 
0372 
0373 
0374 
0375 
0376 
0377 NEWCOL: 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 ..IF BOTH 0, YOU'RE DONE WITH THE FFT 
0410 LBR DUNFFT 
0411 


. .NEW COLUMN 


..THIS ROUTINUE INITIALIZES POINTERS, MASKS 
AND COUNTERS FOR THE NEW COLUMN 
..AND ALSO CHECKS TO SEE IF DONE WITH THE FFT 
..************************************************** 


. . NEW COLUMN 


..GET R(FRP) TO CLBTPT (COLBIT POINTER) 
LDI A.O(CLBTPT) 
PLO FRP 


..GET OLD CLBTPT 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


ADDRESS INTO R(MP) 


..INC OLD POINTER ADDR BY 2 TO NEW POINTER ADDR 
INC MP 
INC MP 


..STORE NEW POINTER ADDRESS 
GLO MP 
STXD 
GHI MP 
STXD 


BACK 


..GET VALUE AT NEW CLBTPT 
..IF NOT 0, SAVE IN R(ZAP2) 
SEX MP 
LDXA 
PHI ZAP2 
LBNZ HIBIT 
LDXA 
LBNZ LOBIT 
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lAA5 0412 . .NOT DONE. SAVE NEW COLBIT BASK IN R(ZAP2) 
lAAS 0413 HIBIT: . .HI BIT NOT 0 
lAA5 72; 0414 LDXA 
lAA6 ; 0415 LOBIT: . .LO BIT NOT 0 
lAA6 AA. 0416 PLO ZAP2 
. 
lAA7 0417 
lAA7 ; 0418 . . GET R(FRP) TO COLBIT 
lAA7 F8E9; 0419 LDI A.O(COLBIT+l) 
lAA9 A8; 0420 PLO FRP 
lAAA ; 0421 
lAAA ; 0422 ..STORE NEW COLBIT VALUE INTO HEMORY 
lAAA E8; 0423 SEX FRP 
lAAB 8A; 0424 GLO ZAP 2 
lAAC 73; 0425 STXD 
lAAD 9A; 0426 GHI ZAP2 
lAAE 73; 0427 STXD 
lAAF ; 0428 
lAAF ; 0429 ..GET R(FRP) TO COLPTR 
lAAF F8El; 0430 LDI A.O(COLPTR+l) 
lABl A8; 0431 PLO FRP 
lAB2 ; 0432 
lAB2 ; 0433 ..GET R(ZAP1) TO TRGCTR 
lAB2 F8EB; 0434 LDI A.O(TRGCTR+l) 
lAB4 AC; 0435 PLO ZAPl 
lABS 0436 
lABS 0437 . . ZERO COLPTR 
lABS F800; 0438 LDI nOO 
lAB7 73; 0439 STXD 
lAB8 73; 0440 STXD 
lAB9 0441 
lAB9 0442 . . AND ZERO TRGCTR 
lAB9 EC; 0443 SEX ZAPl 
lABA 73; 0444 STXD 
lABB 73; 0445 STXD 
lABC ; 0446 
lABC ; 0447 . .AND LEAVE TRGCTR VALUE. 0, IN R(MP) 
lABC B9; 0448 PHI MP 
lABD A9; 0449 PLO MP 
lABE 0450 
lABE 0451 ..CALL TRIG SET SUBROUTINUE 
lABE ; 0452 ..FOR TRGPTR. SNPTR. CSPTR & CSVLU 
lABE F828BO; 0453 LDI 
.l(TRGSET); PHI ZAP 
lACl F80C; 0454 LDI A.O(TRGSET) 
lAC3 AO; 0455 PLO ZAP 
lAC4 DO; 0456 SEP ZAP ..ZAP ,. TRIG SET 
lACS 0457 
lACS 0458 
lACS 0459 
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lACS 0460 
lACS 0461 
lACS 0462 
lACS 0463 
lACS 0464 
lACS 0465 
lACS 0466 
lACS 0467 
lACS 0468 
lACS 0469 
lACS F830; 0470 
lAC7 B9; 0471 
lAC8 F8D8; 0472 
lACA A9; 0473 
lACB 0474 
lACB 0475 
lACB F8DO; 0476 
lACD A8; 0477 
lACE 0478 
lACE 0479 
lACE F8BO; 0480 
lADO AC; 0481 
lADl 0482 
lADl 0483 
lADl ; 0484 
lADl F800 ; 048S 
lAD3 BA; 0486 
lAD4 F805; 0487 
lAD6 AA' 0488 
, 
lAD7 0489 
lAD7 0490 
lAD7 F829BO; 0491 
lADA F860; 0492 
lADC AO; 0493 
lADD DO; 0494 
lADE 0495 
lADE 0496 
lADE 0497 


..************************************************** 
MAGNITUDE CHECK 


..THIS CHECKS THE VALUES OF THE FFT DATA 
..AND SCALES THEM SO THEY WON-T OVERFLOW DURING 
..THE NEW COLUMN COMPUTATION 
..THAT IS: ALL VALUES FORCED BETWEEN HEOOO & H1FFF 
..************************************************** 


..GET R(MP) TO BASE 
LDI A.l(BASE) 
PHI MP 
LDI A.O(BASE) 
PLO MP 


..GET R(FRP) TO FFT-LENGTH 
LDI A.O(FFTLN) 
PLO FRP 


..GET R(ZAP1) TO YSLWA+l POINTER 
LDI A.0(YSTBL+2) 
PLO ZAP 1 


..LOAD MAXIMUM SHIFT VALUE INTO R(ZAP2) 
..THAT IS: 5 (OUT OF 7 - LEAVE 2 MSB-S CLEAR) 
LDI /100 
PHI ZAP2 
LDI 1105 
PLO ZAP2 


..CALL DATA SCALE 
LDI A.l(DTASCL); PHI ZAP 
LDI A.O(DTASCL) 
PLO ZAP 
SEP ZAP ..ZAP 
 DATA SCALE 
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lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE 
lADE F8EO; 
1AEO A8; 
1AE1 
1AE1 , 
1AE1 E8; 
1AE2 72; 
1AE3 B9; 
1AE4 FO; 
1AE5 A9; 
1AE6 
1AE6 
1AE6 
lAE6 F8E8; 
1AE8 AC; 
1AE9 
1AE9 
lAE9 
1AE9 
lAE9 
1AE9 
1AE9 
lAE9 EC; 
lAEA 99; 
1AEB F2; 
lAEC lC; 
1AED CA1AF5; 
lAFO 89; 
lAFl F2; 
lAF2 C21B24; 
lAF5 ; 


0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 


ASP FFT Program 
Program Code 


..************************************************** 


..PRSKCH 


..PAIR SKIP CHECK 


..THIS ROUTINUE CHECKS TO SEE IF THIS IS THE SECOND 
..HALF OF A PREVIOUSLY DONE PAIR BY CHECKING TO SEE 
..IF THE MASK BIT IS A 1 
..IF IT IS, IT INCREMENTS THE POINTER VALUE 
..BY THE MASK VALUE 
..************************************************** 


PRSKCH: ..PAIR SKIP CHECK 
..GET R(FRP) TO COLPTR 
LDI A.O(COLPTR) 
PLO FRP 


..LOAD POINTER VALUE INTO R(MP) 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 
..LEAVE R(FRP) AT COLPTR+1 


..GET R(ZAP1) TO COLBIT ADDRESS 
LDI A.O(COLBIT) 
PLO ZAP1 


..YOU WANT TO SEE IF COLPTR HAS 
IN THE COLBIT MASK: SO 
..COLPTR.AND.COLBIT 
..IF NOT 0, GOTO BUMP: 
..IF 0, GaTO QDADDR: 


A BIT 


PAIR DONE, DO NEXT PAIR 
PAIR NOT DONE, CONTINUE 
WITH COMPUTATION 


SEX ZAPl 
GH I MP 
AND 
INC ZAP 1 
LBNZ BUMP 
GLO MP 
AND 
LBZ QDADDR 


..QUAD ADDRESS SET 
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1AF5 
1AF5 
1AF5 
1AF5 , 
1AF5 89; 
1AF6 F4; 
1AF7 A9; 
1AF8 2C; 
1AF9 99; 
1AFA 74; 
1AFB B9; 
1AFC ; 
1AFC ; 
1AFC E8; 
1AFD 89; 
1AFE 73; 
1AFF 99; 
1BOO 73; 
1BOl 
1B01 
1B01 
1BOl 2C; 
1B02 2C; 
1B03 
1B03 
1B03 EC; 
1B04 99; 
1B05 F3; 
1B06 CA1BOF; 
1B09 lC; 
1BOA 89; 
1BOB F3; 
lBOC C21A8A; 
lBOF 
lBOF 
1BOF 
lBOF 
lBOF ; 
lBOF F8EA; 
1B11 A8; 
lB12 
lB12 , 
lB12 E8; 
1B13 72; 
lB14 B9; 
lB15 FO; 
lB16 A9; 
lB17 ; 


0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 ..NOT END BIT, INCREMENT TRIG COUNTER BY 2 
0576 NOTNBT: ..NOT END BIT 
0577 
0578 ..GET R(FRP) TO TRGCTR 
0579 LDI A.O(TRGCTR) 
0580 PLO FRP 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 


..THE MASK PICKED A 1, BUMP THE POINTER 
..BY THE VALUE OF COLBIT 
..COLPTR <- COLPTR + COLBIT 
BUMP: . . BUMP 


GLO MP 
ADD 
PLO MP 
DEC ZAP1 
GHI MP 
ADC 
PHI MP 


..STORE NEW COLPTR BACK 
SEX FRP 
GLO MP 
STXD 
GHI MP 
STXD 


..R(FRP) AT COLPTR+1 


..CHECK TO SEE IF COLPTR.EQ.ENDBIT 
..GET R(ZAP1) TO ENDBIT 
DEC ZAP1 
DEC ZAP1 


..THEN COMPARE, BRANCH TO 
SEX ZAP1 
GHI MP 
XOR 
LBNZ NOTNBT 
INC ZAP1 
GLO MP 
XOR 
LBZ NEWCOL 


NEWCOL IF EQUAL 


..<> 0, GOTO NOT END BIT 


..
 0, GOTO NEWCOLUMN 


..LOAD TRGCTR VALUE 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


INTO R(MP) 
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1B17 
1B17 19; 
1B18 19; 
1B19 
1B19 
1B19 89; 
1B1A 73; 
1B1B 99; 
1B1C 73; 
1B1D 
1B1D 
1B1D F828BO; 
1B20 F80C; 
1B22 AO; 
1B23 DO; 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 
1B24 F8D8; 
1B26 A8; 
1B27 
1B27 
1B27 E8; 
1B28 72; 
1B29 B9; 
1B2A FO; 
1B2B A9; 
1B2C 
1B2C 
1B2C F8F2; 
1B2E AC; 
1B2F 
1B2F 
1B2F F8E1; 
1B31 A8; 
1B32 


ASP FFT program 
Program Code 


0589 
0590 
0591 
0592 
0593 . . AND 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 ..************************************************** 
0608 . .QDADDR 
0609 
0610 ..FIRST YOU COMPUTE THE ADDRESS POINTERS OF THE 
0611 ..OPERANDS INTO THE FIFO, THEN CHECK FOR WRAPAROUND 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 QDADDR: 
0620 
0621 
0622 
0623 
0624 
0625 . .GET 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 


. . ADD 2 TO VALUE 
INC MP 
INC HP 


STORE IT BACK 
GLO MP 
STXD 
GHI MP 
STXD 


..CALL TRIG SET FOR TRGPTR, SNPTR, 
LDI A.1(TRGSET); PHI ZAP 
LDI A.O(TRGSET) 
PLO ZAP 
S EP ZAP 


CSPTR & CSVLU 


..ZAP - TRIG SET 


. .QUAD ADDRESS SET 


..LOREAL <- BASE + COLPTR 
..LOIMAG <- BASE + COLPTR + 2 
..HIREAL <- BASE + COLPTR + COLBIT 
..HIIMAG <- BASE + COLPTR + COLBIT + 2 
..************************************************** 


..QUAD ADDRESS SET 


..GET R(FRP) TO BASE 
LDI A.O(BASE) 
PLO FRP 


BASE VALUE 
SEX FRP 
LDXA 
PH I liP 
LDX 
PLO MP 


INTO R(MP) 


..GET R(ZAP1) TO LOREAL 
LDI A.O(LOREAL) 
PLO ZAP 1 


..GET R(FRP) TO COLPTR 
LDI A.0(COLPTR+1) 
PLO FRP 
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1832 
1832 
1835 
1838 
1839 
1839 
1839 
1B39 
1839 
1838 
183C 
183C 
183C DO; 
183D ; 
183D ; 
183D ; 
183D ; 
183D F8C4; 
1B3F A8; 
1B40 E8; 
1841 FO; 
1842 CA186A; 
1845 
1845 
1B45 
1845 
1845 
1845 
1845 
1845 
1845 F800; 
1847 AO; 
1848 ; 
1848 ; 
1B48 F880; 
184A AC; 
1 B4 B ; 
1B4B ; 
1B4B F8F8; 
184D A8; 
1B4E 
184E 
1B4E 
184E E8; 
184F 72; 
1B50 BO; 
1851 FO; 
1B52 AD; 
1853 


F82880; 
F808AO; 
DO; 


, 
F8E9; 
A8; 


..CALL ADDSTF (ADD & STUFF) FOR LOREAL & LOIMAG 
LDI A.1(ADDSTF); PHI ZAP 
LDI A.O(ADDSTF); PLO ZAP 
SEP ZAP ..ZAP - ADD & STUFF 


0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 ..CALL ADOSTF (ADD & STUFF) FOR HIREAL & HIIMAG 
0652 SEP ZAP ..ZAP 
 ADD & STUFF 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 ..LOAD THE ADDRESS AT R(FRP) INTO R(MA) 
0682 LDPTR: ..LOAD POINTER 
0683 
0684 
0685 
0686 
0687 
0688 


..R(MP) HAS VALUE (8ASE + COLPTR) 
..R(ZAP1) IS AT HIREAL 
..GET R(FRP) TO COLBIT 
LDI A.0(COL8IT+1) 
PLO FRP 


..IF IT'S A P-FFT, YOU KNOW ADDRESSES 
..SO SKIP BOUNDARY CHECK 
..CHECK P-FFT FLAG FOR TRUE (FF) 
LDI A.O(PFTFLG) 
PLO FRP 
SEX FRP 
LDX 
L8NZ TRGMLT 


< YSLWA+1 


..IF TRUE, THEN 
..BRANCH TO TRIG 
mLTIPLY 


..ELSE, IT'S A S-FFT 
..THE ADDRESSES ARE IN LOREAL..HllMAG 
..CHECK FOR WRAPAROUND 
..CHECK HIIMAG, THEN HIREAL. THEN LOIMAG. 
..THEN LOREAL UNTIL YOU'RE UNDER THE 80UNDARY 


..GET R(ZAP) TO WRAPAROUND TEST 
LDI A.O(WRPTST) 
PLO ZAP 


..GET R(ZAP1) TO YSLWA+1 POINTER (@ YST8L+2) 
LOI A.0(YST8L+2) 
PLO ZAPl 


..GET R(FRP) TO HIIMAG POINTER 
LOI A.O(HIIMAG) 
PLO FRP 


SEX FRP 
LDXA 
PHI MA 
LDX 
PLO r-IA 
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1B53 ; 
1B53 DO; 
1B54 
1B54 
1B54 
1B54 
1B55 
1B58 
1B58 ; 
1B58 E8; 
1B59 8D; 
1B5A 73; 
1B5B 9D; 
1B5C 73; 
1B5D ; 
1B5D ; 
1B5D 88; 
1B5E FFF2; 
1860 98; 
1B61 7F30; 
1B63 CB1B6A; 
1B66 
1B66 , 
1B66 28; 
1B67 
1B67 ; 
1B67 COlB4E; 
1B6A 
1B6A ; 
1B6A ; 


0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 


, 
9B; 
C21B6A; 


ASP FFT Program 
Program Code 


..CHECK FOR WRAPAROUND 
SEP ZAP ..ZAP 
 WRAPAROUND TEST 


..ON RETURN, IF YOU WERE BELOW BOUNDARY 
..R(ZAP3.1) WILL BE Hoo 
GHI ZAP3 ..IF R(ZAP3.1) 
 #00 
LBZ TRGMLT ..SKIP TO TRIG MULTIPLY 


..ELSE, STORE BACK CHANGED VALUE 
SEX FRP 
GLO HA 
STXD 
GHI MA 
STXD 


..IF IT WAS THE LAST POINTER, SKIP TO TRIG MULTIPLY 
GLO FRP 
SMI A.O(LOREAL) 
GHI FRP 
SHBI A.l(LOREAL) 
LBNF TRGMLT 


..ELSE GET TO THE NEXT POINTER VALUE 
DEC FRP 


..AND GO UP FOR THE NEXT CHECK 
LBR LDPTR ..GOTO LOAD POINTER 
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1B6A 
1B6A 
1B6A 
1B6A 
1B6A 
1B6A 
1B6A 
lB6A 
1B6A 
IB6A 
1B6A 
1B6A 
1B6A 
1B6A 
1B6A 
1B6A F8F6; 
1B6C A8; 
1B6D 
1B6D ; 
1B6D 48BD; 
lB6F 48AD; 
1B71 
lB71 
1Bll 
1B71 F802; 
1B73 AO; 
1B74 DO; 
lB75 
1B75 
1B75 F830; 
1B77 BF; 
1B78 F8FA; 
1B7A AF; 
1B7B 
lB7B 
lB7B DO; 
lB7C 
1B7C 
lB7C 
lB7C 
lB7C 2D2D; 
1B7E 
lB7E 
lB7E F8EEAC; 
lB81 
lB81 
lB81 4CBE; 
lB83 4CAE; 
lB85 


0719 ..************************************************** 
0720 .. TRGMLT 
0721 
0722 ..COMPUTE THE TEMPORARY VALUES 
0723 
0724 . .TREAL <- 
0725 
0726 .. TIMAG <- 
0727 
0728 
0729 
0730 TRGMLT: 
0731 
0732 
0733 
0734 
0735 
0736 
073 7 . .GET 
0738 
0739 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 ..THEN RETURN TO STORE RESULT 
0754 SEP ZAP . .ZAP "" MIDDLE OF CSMULT 
0755 
0756 
0757 
0758 
0759 
0760 
0761 ..GET R(ZAP1) TO SNPTR POINTER 
0762 LDI A.O(SNPTR); PLO ZAPl 
0763 
0764 
0765 
0766 
0767 


. . TRIG MULTIPLY 


[ M(HIREAL) * CSVLU ] 
+ [ M(HII

G) * M(SNPTR) ] 
[ M(HllMAG) * CSVLU ] 
- [ M(HIREAL) * M(SNPTR) ] 
..************************************************** 


..TRIG MULTIPLY 


..DO THE 1ST HALF OF TREAL [ M(HIREAL) 
..GET R(FRP) TO HIREAL POINTER 
LDI A.O(HIREAL) 
PLO FRP 


* CSVLU ] 


POINTER VALUE INTO R(MA) 
LDA FRP; PHI MA 
LOA FRP; PLO MA 
..AND LEAVE R(FRP) POINTING TO HIIMAG 


..CALL COSINE MULTIPLY FOR THE 
LDI A.O(CSMULT) 
PLO ZAP 
SEP ZAP 


1ST TREAL COHPONENT 


..ZAP "" COSINE MULTIPLY 


..AT HALFWAY POINT, GET R(AC) 
LDI A.l(TREAL) 
PHI AC 
LDI A.O(TREAL) 
PLO AC 


TO TREAL 


..GO FOR 2ND HALF OF TII1AG [ M(HIREAL) * M(SNPTR) ] 
..GET R(MA) BACK TO HIREAL VALUE 
DEC MA; DEC MA 


..GET SNPTR VALUE INTO R(MQ) 
LOA ZAP1; PHI MQ 
LOA ZAP 1; PLO 
tQ 
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1B85 0768 
1B85 DO; 0769 
1B86 0770 
1B86 0771 
1B86 0772 
1B86 0773 
1B86 0774 
1B86 48BD; 0775 
1B88 48AD; 0776 
IB8A ; 0777 
1B8A ; 0778 
1B8A DO; 0779 
1B8B 0780 
1B8B 0781 
1B8B 0782 
1B8B 0783 
1B8B 2E2E; 0784 
1B8D 0785 
IB8D 0786 
1B8D DO; 0787 
1B8E 0788 
1B8E 0789 
1B8E 0790 
IB8E F8C6AF; 0791 
IB91 0792 
1B91 0793 
1B91 2D2D; 0794 
1B93 0795 
1B93 0796 
1B93 DO; 0797 
1B94 0798 
1B94 0799 
1B94 F8FBAF; 0800 
IB97 EF; 0801 
1B98 8BF473; 0802 
1B9B 9B7473; 0803 
1B9E 0804 
1B9E 0805 
1B9E 0806 
IB9E 0807 
1B9E F802AO; 0808 
IBA1 DO; 0809 
IBA2 0810 
IBA2 0811 
IBA2 ; 0812 
IBA2 F8C6AF; 0813 
IBA5 C4C4; 0814 
IBA7 0815 
1BA7 0816 
IBA7 DO; 0817 
IBA8 0818 


ASP FFT Program 
Program Code 


..CALL SINE MULTIPLY FOR 2ND TIMAG COMPONENT 
SEP ZAP . . ZAP 
 SI
E HULTIPLY 
..(LEFT THERE FROM BEFORE) 


. .AT HALFWAY, R(AC) OK AT TIMAG 
..SO GET R(MA) TO HIIMAG VALUE FOR NEXT OPERATION 
..R(FRP) IS AT HIIMAG POI
TER 
LDA FRP; PHI MA 
LDA FRP; PLO MA 


..THEN RETURN TO STORE 2ND TIMAG COMPONENT 
SEP ZAP . . ZAP 
 MIDDLE OF SINE MUL T 


..NOW DO 2ND HALF OF TREAL [ M(HIIMAG) * M(SNPTR) 
..GET R(MQ) BACK TO SNPTR POINTED ADDRESS 
DEC MQ; DEC MQ 


..RECALL SINE MULTIPLY FOR 2ND TREAL COMPONENT 
SEP ZAP ..ZAP 
 SINE MULTIPLY 


. .AT HALFWAY, GET R(AC) TO DUMMY LOCATION 
..(USE FREELN, A BDRYST/CK VARIABLE) 
LDI A.O(FREELN); PLO AC 


..GET R(
1A) BACK TO HIIMAG VALUE FOR NEXT OPERATION 
DEC MA; DEC MA 


..THEN RETURN TO GET RESULT INTO R(ZAP3) 
SEP ZAP ..ZAP 
 MIDDLE OF SINE MULT 


..GET R(AC) TO TREAL.O, AND ADD 2ND CO
æONENT 
LDI A.O(TREAL+l); PLO AC 
SEX AC 
GLO ZAPJ; ADD; STXD 
GHI ZAP3; ADC; STXD 


..NOW DO 1ST HALF OF TIMAG [ M(HIMAG) * CSVLU ] 
..CALL COSINE MULTIPLY FOR 1ST TIIMAG COMPONENT 
LDI A.O(CSMULT); PLO ZAP 
SEP ZAP ..ZAP = COSINE MULTIPLY 


..AT HALFWAY GET R(AC) TO DUMMY LOCATION 
..(USE FREELN, A BDRYST/CK VARIABLE) 
LDI A.O(FREELN); PLO AC 
NOP; NOP ..AND WASTE TIME 


..THE
 RETURN TO GET RESULT INTO R(ZAP3) 
SEP ZAP . .ZAP = ;lIDDLE OF CSHULT 
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1BA8 0819 
1BA8 0820 
1BA8 F8FDAF; 0821 
1BAB EF; 0822 
1BAC 8BF773; 0823 
1BAF 9B7773; 0824 
1BB2 0825 
1BB2 0826 
1BB2 0827 
1BB2 0828 
1BB2 0829 
1BB2 0830 
1BB2 0831 
1BB2 0832 
1BB2 0833 
1BB2 0834 
1BB2 0835 
1BB2 0836 
1BB2 0837 
1BB2 0838 
1BB2 0839 
1BB2 F8F2; 0840 
1BB4 A8; 0841 
1BB5 ; 0842 
1BB5 0843 
1BB5 F8FA; 0844 
1BB7 AC; 0845 
1BB8 0846 
1BB8 0847 
lBB8 F80A; 0848 
1BBA AO; 0849 
1BBB DO; 0850 
1BBC 0851 
1BBC 0852 
1BBC F8F4; 0853 
1ßBE A8; 0854 
1BBF 0855 
lßBF 0856 
1BBF 0857 
lBBF DO; 0858 
lBCO 0859 
lBCO 0860 
lBCO 0861 


..GET R(AC) TO TIMAG.O 
..AND SUBTRACT MEMORY 2ND FROM R(ZAP3) 1ST 
LDI A.0(TIMAG+1); PLO AC 
SEX AC 
GLO ZAP3; SM; STXD 
GHI ZAP3; 5MB; STXD 


..************************************************** 
..ADD TRIG FACTORS FOR NEW QUAD 


..NOW YOU CAN UPDATE THIS COLUMN'S QUAD. THAT IS: 
..M(LOREAL) <- M(LOREAL) + TREAL 
..M(LOIMAG) <- M(LOIMAG) + TIMAG 
..M(HIREAL) <- M(LOREAL) - TREAL 
..M(HIIMAG) <- M(LOIMAG) - TIMAG 
..************************************************** 


..GET R(FRP) TO LOREAL POINTER 
LDI A.O(LOREAL) 
PLO FRP 


..GET R(ZAP1) TO TREAL VALUE 
LDI A.O(TREAL) 
PLO ZAP1 


..CALL NEW VALUE FOR NEW LOREAL & HIREAL 
LDI A.O(NEWVAL) 
PLO ZAP 
SEP ZAP . . ZAP 
 NEW VALUE 


..GET R(FRP) TO LOIMAG POINTER 
LDI A.O(LOIMAG) 
PLO FRP 


..R(ZAP1) IS AT TIMAG 
..CALL NEW VALUE FOR LOlMAG & HIlMAG 
SEP ZAP . . ZAP :I NEW VALUE 
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1BCO 0862 
1BCO 0863 
1BCO 0864 
1BCO 0865 
1BCO 0866 
1BCO 0867 
1BCO 0868 
1BCO 0869 
1BCO 0870 
1BCO F8EO; 0871 
1BC2 A8; 0872 
1BC3 0873 
1BC3 0874 
1BC3 E8; 0875 
1BC4 72; 0876 
1BC5 B9; 0877 
1BC6 FO; 0878 
1BC7 A9; 0879 
1BC8 0880 
1BC8 0881 
1BC8 ; 0882 
1BC8 19; 0883 
1BC9 19; 0884 
1BCA 19; 0885 
1BCB 19; 0886 
1BCC 0887 
1BCC 0888 
1BCC 89; 0889 
1BCD 73; 0890 
1BCE 99; 0891 
1BCF 73; 0892 
1BDO 0893 
1BDO 0894 
1BDO COlADE; 0895 
lBD3 0896 
lBD3 0897 
lBD3 0898 
lBD3 0899 
lBD3 0900 
lBD3 0901 
lBD3 0902 
lBD3 0903 
lBD3 D5; 0904 


ASP FFT program 
Program Code 


..************************************************** 
..NEXT QUAD 


..THIS ROUTINUE GETS TO THE NEXT COLUMN POINTER 
..VALUE, THEN BRANCHES BACK TO CHECK THAT IT'S VALID 
..************************************************** 


..GET R(FRP) TO COLUMN POINTER 
LDI A.O(COLPTR) 
PLO FRP 


..LOAD COLPTR POINTER VALUE INTO R(MP) 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


..INCREMENT THAT VALUE BY 4 
..TO GET BY A PAIR OF 16 BIT WORDS 
INC MP 
I NC MP 
INC MP 
I NC MP 


..STORE THE NEW VALUE BACK 
GLO MP 
STXD 
GHI MP 
STXD 


..THEN BRANCH BACK TO CHECK FOR A VALID PAIR 
LBR PRSKCH ..PAIR SKIP CHECK 


..************************************************** 
..DUNFFT ..DONE WITH THE FFT 
..************************************************** 


DUNFFT: 


..DONE WITH THE FFT 
..RETURN TO CALLING PROGRAM 


EXIT 
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A.2.1.5 UNSCRM (Unscramble) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 . .UNSCRl1.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 


20 JAN 80 


8:35 PM 


..#################################################0 
..UNSCRM.SR UNSCRAMBLE 


..A RESULT OF THIS DECIMATION-IN-FREQUENCY 
..FFT ALGORITHM IS THAT THE DATA IS LEFT 
..IN BIT-REVERSED SCRAMBLED ORDER 
..TO UNSCRAMBLE. EXCHANGE VALUES FOR THE REAL DATA: 


. .LENGTH 
FFT 


SWITCHED 
INDEX WITH INDEX 


512 
256 
128 
64 


AB CDEF GHOO 
OA BCDE FGOO 
00 ABCD EFOO 
00 OABC DEOO 


HG FEDC BAOO 
OG FEDC BAOO 
00 FEDC BAOO 
00 DE DC BAOO 


..AND FOR THE IMAGINARY DATA: 


. . LENGTH 
FFT 


SWITCHED 
INDEX WITH INDEX 


512 AB CDEF GH10 HG FEDC BALD 
256 OA BCDE FG10 OG FEDC BALD 
128 00 ABCD EFIO 00 FEDC BALD 
64 00 OABC DE10 00 OEDC BALD 
..##########0############################0##0######0 


..EXTERNAL ROUTINUES 


SUBROT=-/J2800 
WRPTST=-SUBROT 
ADDSTF=-SUBROT+8 


..SUBROUTINUE BLOCK 
..WRAPAROUND TEST 
. . ADD & STUFF 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
lCOO 
lCOO 
lCOO 
lCOO 
lCOO 
lCOO 
lCOO 
lCOO ; 
lCOO F8D6A8; 
lC03 
lC03 
lC03 48BE48AE; 
lC07 
lC07 , 
lC07 4EB94EA9; 
lCOB 
lCOB 
lCOB F8EOA8; 
lCOE ; 
lCOE ; 
lCOE 495818; 
lCll 495818; 
lC14 
lC14 
lC14 4E58l8; 
lC17 4E58l8; 
lC1A ; 
lC1A ; 
lC1A F80058l858; 
lClF ; 


ASP FFT Program 
Program Code 


0276 ..INTERNAL VARIABLES 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 ..BEGIN HERE 
0293 
0294 UNSCRM: . .UNSCRAMBLE 
0295 .................................................... 
0296 ..INITIALIZE 
0297 ..LOAD END COUNT AND SHIFT COUNT 
0298 ..GET R(FRP) TO FFT LENGTH POINTER 
0299 LDI A.O(FLNPTR); PLO FRP 
0300 
0301 ..LOAD FLN### POINTER VALUE INTO R(MQ) 
0302 LDA FRP; PHI MQ; LDA FRP; PLO MQ 
0303 
0304 ..GET END COUNT ADDRESS INTO R(MP) 
0305 LDA MQ; PHI MP; LDA MQ; PLO MP 
0306 
0307 ..GET R(FRP) TO END COUNT 
0308 LDI A.O(ENDCNT); PLO FRP 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 ..ZERO NORMAL POI
TER 
0319 LDI #00; STR FRP; INC FRP; STR FRP 
0320 


ENDCNTaCSVLU+2 ..END COUNT 
SHFCNTaENDCNT+2 ..SHIFT COUNT 


NMPTRaSHFCNT+2 
SWPTR=NMPTR+2 


. .NORMAL POINTER 
..SWITCHED POINTER 


NMREALaSWPTR+2 
NMIMAGaNMREAL+2 
SWREALaNMIMAG+2 
SWIMAG=SWREAL+2 


..NORMAL REAL INDEX 
..NORMAL IMAG INDEX 
..SWITCHED REAL INDEX 
..SWITCHED IMAG INDEX 


ORG R1COO 


..PASS END COUNT VALUE 
LDA HP; STR FRP; INC FRP 
LDA MP; STR FRP; INC FRP 


..PASS SHIFT COUNT VALUE 
LDA MQ; STR FRP; INC FRP 
LDA MQ; STR FRP; INC FRP 
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1C1F 
1C1F 
1C1F 
1ClF 
1C1F 
1C1F 
1ClF F8E4A8; 
1C22 
1C22 , 
1C22 F8E2AC; 
1C25 
1C25 , 
1C25 F81CBO; 
1C28 F8D5AO; 
1C2B DO; 
1C2C 
1C2C ; 
1C2C ; 
1C2C ; 
1C2C E88EF7; 
1C2F 289E77; 
1C32 C31CB1; 
1C35 
1C35 
1C35 
1C35 
1C35 


0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 


..************************************************** 
GOSHFT: ..GO SHIFT POINTERS 
..GET SWITCHED POINTER FROM NORMAL POINTER 
..VIA BITREV ROUTINUE 


..GET R(FRP) TO NORMAL POINTER 
LDI A.O(NMPTR); PLO FRP 


..GET R(ZAP1) TO SHIFT COUNT 
LDI A.O(SHFCNT); PLO ZAP1 


..CALL BITREV 
LDI A.l(BITREV); PHI ZAP 
LDI A.O(BITREV); PLO ZAP 
SEP ZAP 


..ON RETURN NORMAL POINTER IS IN R(MQ) 
..AND R(FRP) IS AT SWITCHED POINTER LOCATION + 1 
..CHECK FOR NORMAL POINTER a) SWITCHED POINTER 
SEX FRP; GLO MQ; SM 
DEC FRP; GHI MQ; 5MB 
LBDF PTRUP ..IF NORlIAL =) SWITCHED 
..THEN GOTO POINTER UP 
..YOU'VE DONE THIS PAIR 


..ELSE (NEW PAIR) FALL THROUGH TO QUAD ADDRESS 
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1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 
1C35 F8D8; 
1C37 A8; 
1C38 
1C38 
1C38 E8; 
1C39 72; 
1C3A B9; 
1C3B FO; 
1C3C A9; 
1C3D 
1C3D 
1C3D F8E8; 
1C3F AC; 
1C40 
1C40 
1C40 F8E5; 
1C42 A8; 
1C43 
1C43 
1C43 F828; 
1C45 BO; 
1C46 F808; 
1C48 AO; 
1C49 DO; 
1C4A ; 
1C4A ; 
1C4A F8D8; 
1C4C A8; 
1C4D 
1C4D ; 
1C4D E8; 
1C4E 72; 
1C4F B9; 
lC50 FO; 
lCS1 A9; 
lC52 


0348 ..************************************************** 
0349 . .QDADDR 
0350 
0351 ..FIRST YOU COMPUTE THE ADDRESS POINTERS OF THE 
0352 ..OPERANDS INTO THE FIFO, THEN CHECK FOR WRAPAROUND 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 QDADDR: 
0361 
0362 
0363 
0364 
0365 
0366 . .GET 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 . .GET 
0393 
0394 
0395 
0396 
0397 
0398 


..QUAD ADDRESS SET 


..NMREAL (- BASE + NMPTR 
..NMIMAG (- BASE + NMPTR + 2 
..SWREAL (- BASE + SWPTR 
..SWIMAG (- BASE + SWPTR + 2 
..************************************************** 


..QUAD ADDRESS SET 


..GET R(FRP) TO BASE 
LDI A.O(BASE) 
PLO FRP 


BASE VALUE 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


INTO R(MP) 


. .GET R(ZAP1) TO NMREAL 
LDI A.O(NMREAL) 
PLO ZAP1 


..GET R(FRP) TO NMPTR 
LDI A.O(NMPTR+l) 
PLO FRP 


..CALL ADDSTF (ADD & STUFF) 
LDI A.l(ADDSTF) 
PHI ZAP 
LDI A.O(ADDSTF) 
PLO ZAP 
SEP ZAP 


FOR NMREAL & IDHMAG 


ADD & STUFF 


. . ZAP 


..GET R(FRP) TO BASE 
LDI A.O(BASE) 
PLO FRP 


BASE VALUE 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


INTO R(MP) 
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lC52 ; 
lC52 F8EC; 
lC54 AC; 
lC55 ; 
lC55 ; 
lC55 F8E7; 
lC57 A8; 
lC58 
lC58 , 
lC58 DO; 
lC59 
lC59 
lC59 
lC59 
lC59 F8C4; 
lC5B A8; 
lC5C E8; 
lC5D FO; 
lC5E CA1C86; 
lC6l 
lC6l 
lC6l 
lC6l 
lC6l 
lC6l 
lC6l 
lC6l 
lC6l F800; 
lC63 AO; 
lC64 
lC64 
lC64 
lC66 
lC67 
lC6l , 
lC67 F8EE; 
lC69 A8; 
lC6A ; 
lC6A ; 
lC6A ; 
lC6A E8; 
lC6B 72; 
lC6C BD; 
lC6D FO; 
lC6E AD; 
lC6F ; 
lC6F ; 
lC6F DO; 
lClO ; 


, 
F8BO; 
AC; 


0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 ..CALL ADDSTF (ADD & STUFF) FOR NMREAL & NMIMAG 
0408 SEP ZAP ..ZAP = ADD & STUFF 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 ..LOAD THE ADDRESS AT R(FRP) INTO R(MA) 
0438 LDPTR: . . LOAD POINTER 
0439 SEX FRP 
0440 LDXA 
0441 PHI MA 
0442 LDX 
0443 PLO 
1A 
0444 
0445 ..CHECK FOR WRAPAROUND 
0446 SEP ZAP 
0447 


..GET R(ZAP1) TO SWREAL 
LDI A.O(SWREAL) 
PLO ZAP 1 


..GET R(FRP) TO SWPTR 
LDI A.O(SWPTR+l) 
PLO FRP 


..IF IT'S A P-FFT, YOU KNOW ADDRESSES 
..SO SKIP BOUNDARY CHECK 
..CHECK P-FFT FLAG FOR TRUE (FF) 
LDI A.O(PFTFLG) 
PLO FRP 
SEX FRP 
LDX 
LBNZ MEMSWP 


< YSLWA+l 


..IF TRUE, THEN 
..BRANCH TO MEMORY SWAP 


..ELSE, IT'S A S-FFT 
..THE ADDRESSES ARE IN NMREAL..SWIMAG 
..CHECK FOR WRAPAROUND 
..CHECK SWIMAG, THEN SWREAL, THEN IDfIMAG, 
..THEN NMREAL UNTIL YOU'RE UNDER THE BOUNDARY 


..GET R(ZAP) TO WRAPAROUND TEST 
LDI A.O(WRPTST) 
PLO ZAP 


..GET R(ZAP1) TO YSLWA+l POINTER (@ YSTBL+2) 
LDI A.0(YSTBL+2) 
PLO ZAP 1 


..GET R(FRP) TO SWIMAG POINTER 
LDI A.O(SWIMAG) 
PLO FRP 


..ZAP = WRAPAROUND TEST 
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lC70 
lC70 
lC70 9B; 
lCn C21C86; 
lC74 
lC74 , 
lC74 E8; 
lC75 8D; 
lC76 73; 
lC77 9D; 
lC78 73; 
lC79 
lC79 ; 
lC79 88; 
lC7A FFE8; 
lC7C 98; 
lC7D 7F30; 
lC7F CB1C86; 
lC82 
lC82 
lC82 28; 
lC83 
lC83 
lC83 COlC6A; 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 
lC86 F8E8A8; 
lC89 
lC89 
lC89 F8ECAC; 
lC8C 
lC8C 
lC8C F800BB; 
lC8F 


0448 
0449 
0450 
0451 
0452 
0453 ..ELSE, 
0454 
0455 
0456 
0457 
0458 
0459 
0460 .. IF 
0461 
0462 
0463 
0464 
0465 
0466 
0467 ..ELSE GET TO THE NEXT POINTER VALUE 
0468 DEC FRP 
0469 
0470 ..AND GO UP FOR THE NEXT CHECK 
0471 LBR LDPTR ..GOTO LOAD POINTER 
0472 
0473 
0474 ..************************************************** 
0475 . .UEMORY SWAP 
0476 
0477 
0478 
0479 
0480 
0481 
0482 MEMSWP: 
0483 ..GET R(FRP) TO NMREAL 
0484 LDI A.O(NMREAL); PLO FRP 
0485 
0486 ..GET R(ZAP1) TO SWREAL 
0487 LDI A.O(SWREAL); PLO ZAPl 
0488 
0489 ..SET FIRST PASS FLAG IN R(ZAP3.H) 
0490 LDI HOO; PHI ZAP3 
0491 


..ON RETURN, IF YOU WERE BELOW BOUNDARY 
..R(ZAP3.l) WILL BE HOO 
GHI ZAP3 
LBZ MEMSWP 


..IF R(ZAP3.l) a HOO 
..SKIP TO MEHORY SWAP 


STORE BACK CHANGED VALUE 
SEX FRP 
GLO MA 
STXD 
GHI MA 
STXD 


IT WAS THE LAST POINTER, SKIP TO MEMORY SWAP 
GLO FRP 
SMI A.O(NMREAL) 
GHI FRP 
5MBI A.l(NMREAL) 
LBNF MEMSWP 


..HERE YOU EXCHANGE THE DATA 
M(M(NMREAL)) WITH M(M(SWREAL)) 
.. & M(M(NMlMAG)) WITH M(M(SWlMAG)) 
..************************************************** 


. .MEMORY SWAP 
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1C8F 0492 
lC8F j 0493 
lC8F 48B948A9j 0494 
lC93 j 0495 
lC93 0496 
lC93 j 0497 
1C93 4CBD4CADj 0498 
lC97 0499 
lC97 0500 
lC97 0501 
lC97 49BE09AEj 0502 
lC9B 0503 
lC9B ; 0504 
lC9B 4DBFOD; 0505 
lC9E 0506 
lC9E 0507 
lC9E E9739F73j 0508 
lCA2 0509 
lCA2 j 0510 
lCA2 ED8E739E73j 0511 
lCA7 0512 
lCA7 j 0513 
lCA7 9BCAlCBl; 0514 
lCAB 0515 
lCAB 0516 
lCAB F8FFBB; 0517 
lCAE 0518 
lCAE 0519 
lCAE COlC8F; 0520 
lCBl 0521 
lCBl 0522 
lCBl 0523 
lCBl 0524 
lCBl 0525 
lCBl 0526 
lCBl . 0527 
, 
lCBl F8E4A8; 0528 
lCB4 0529 
1CB4 ; 0530 
lCB4 E872B9FOA9; 0531 
lCB9 0532 
lCB9 ; 0533 
lCB9 19191919; 0534 
lCBD 0535 
lCBD 0536 
lCBD 89739958; 0537 
lCCl 0538 
lCCl 0539 
lCCl F8EIACj 0540 
lCC4 0541 


SWAP: . . SWAP MEMORY 
. .LOAD NM---- POINTER INTO R(MP) 
LDA FRPj PHI MPj LDA FRP; PLO MP 
..AND LEAVE R(FRP) AT NU---- PTR + 2 


..LOAD SW---- POINTER INTO R(MA) 
LDA ZAP1j PHI MAj LDA ZAPl; PLO MA 
..AND LEAVE R(ZAPl) AT SW---- PTR + 2 


..LOAD NORMAL VALUE 
LDA MPj PHI MQj LDN MP; PLO MQ 


..LOAD SWITCHED VALUE 
LDA MAj PHI ACj LDN MA 


..STORE SWITCHED VALUE 
SEX MPj STXDj GHI ACj STXD 


..STORE NORMAL VALUE 
SEX MAj GLO HQj STXDj GHI MQ; STXD 


..IF SECOND PASS, THEN JUMP OUT 
GHI ZAP3j LBNZ PTRUP 


..ELSE WAS FIRST, SET SECOND PASS FLAG 
LDI OFFj PHI ZAP3 


..AND GO BACK FOR SECOND 
LBR SWAP 


..************************************************** 
PTRUP: ..POINTER UP 
..THIS ROUTINUE INCREMENTS THE NORMAL POINTER BY 4 
..THEN CHECKS FOR =) END COUNT (DONE CONDITION) 


..GET R(FRP) TO NORMAL POINTER 
LDI A.O(NMPTR); PLO FRP 


..LOAD VALUE [NTO R(MP) 
SEX FRP; LDXA; PHI MP; LDX; PLO MP 


. . INCREMENT BY 4 
INC MP; INC MP; INC MP; INC MP 


..STORE BACK 
GLO MP; STXDj GHI MP; STR FRP 


..GET R(ZAP1) TO END COUNT 
LDI A.O(ENDCNT+l); PLO ZAPl 
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lCC4 ; 0542 
lCC4 EC89F7; 0543 
lCC7 2C9977; 0544 
lCCA CB1C1F; 0545 
lCCD ; 0546 
lCCD ; 0547 
lCCD ; 0548 
lCCD DS; 0549 
lCCE C4C4C4C4C4C4; 0550 
lCD4 0551 
lCD4 0552 
lCD4 0553 
lCD4 0554 
lCD4 0555 
lCD4 0556 
lCD4 0557 
lCD4 0558 
lCD4 0559 
lCD4 0560 
lCD4 0561 
lCD4 0562 
lCD4 0563 
lCD4 0564 
lCD4 0565 
lCD4 0566 
lCD4 ; 0567 
lCD4 D3; 0568 
lCDS 0569 
lCDS 0570 
lCDS 0571 
lCDS ; 0572 
lCDS 48B9BE; 0573 
lCD8 48A9AE; 0574 
lCDB 0575 
lCDB 0576 
lCDB ; 0577 
lCDB 4CBA4CAA; 0578 
lCDF 0579 
lCDF 0580 
lCDF F800BBAB; 0581 
lCE3 0582 
lCE3 0583 
lCE3 ; 0584 
lCE3 99F6B9; 0585 
lCE6 8976A9; 0586 
lCE9 ; 0587 
lCE9 8B7EAB; 0588 
lCEC 9B7EBB; 0589 
lCEF ; 0590 


ASP FFT Program 
Program Code 


..CHECK FOR POINTER < COUNT 
SEX ZAP1; GLO MP; SM 
DEC ZAP1; GHI MP; 5MB 
LBNF GOSHFT ..IF POINTER < COUNT 
..THEN GOTO GO SHIFT 


..ELSE DONE, RETURN TO MAIN 
EXIT 
,flC4C4C4C4C4C4 


..UUUUflflflUflflflHflUfI#flflflflflflflflflflHflflflUOflflUUflOUvflflflflUUflUUU 
..BITREV BIT REVERSAL 


..THIS ROUTlNUE SHIFTS NORMAL POINTER OFF THE RIGHT 
..AND THEN LEFT INTO SWITCHED POINTER 
..SHIFT COUNT TIMES 


..IT ASSUMES R(FRP) IS AT NORMAL POINTER 
..AND R(ZAP1) IS AT SHIFT COUNT 


..ON RETURN SWITCHED POINTER IS IN R(ZAP3) 
AND AT M(R(FRP+2) 
..OflUflUUIUUflflUUUUflUUflflflUUflflUUflflUUUUflUflflflflUUUUflflUUUUU 


. . RETURN PORTION 
EXBTRV: 


..EXIT BIT REVERSAL 
. .RESET TO R(PC) 


S EP PC 


. .ENTER HERE 
BITREV: ..BIT REVERSAL 
..LOAD NORMAL POINTER INTO R(MP) & R(MQ) 
LDA FRP; PHI MP; PHI MQ 
LDA FRP; PLO MP; PLO MQ 
..AND LEAVE R(FRP) AT SWITCHED POINTER 


..LOAD SHIFT COUNT INTO R(ZAP2) 
LDA ZAP1; PHI ZAP2; LDA ZAPl; PLO ZAP2 


..USE R(ZAP3) FOR SWITCHED POINTER, CLEAR IT 
LDI UOO; PHI ZAP3; PLO ZAP3 


..SHIFT NORMAL POINTER INTO SWITCHED POINTER THRU OF 
SHFARO: . .SHIFT AROUND 
GHI MP; SHR; PHI 
P 
GLO MP; SHRC; PLO MP 


GLO ZAP3; SHLC; PLO ZAP3 
GHI ZAP3; SHLC; PHI ZAP3 
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1CEF 0591 
1CEF 2A8A; 0592 
1Cn CA1CE3; 0593 
1CF4 0594 
1CF4 0595 
1CF4 ; 0596 
1CF4 9B5818; 0597 
1CF7 8B58; 0598 
1CF9 0599 
1CF9 0600 
1CF9 0601 
1CF9 COl CD4 ; 0602 
1CFC 0603 
1CFC 0604 
1CFC 0605 


..COUNT DOWN VIA R(ZAP2) 
DEC ZAP2; GLO ZAP2 
LBNZ SHFARO ..IF NOT UOO 
..SHIFT AROUND AGAIN 


..ELSE STORE SWITCHED POINTER VALUE 
GHI ZAP3; STR FRP; INC FRP 
GLO ZAP3; STR FRP 
..AND LEAVE R(FRP) AT SWITCHED POINTER + 1 


..THEN RETURN THRU TOP 
LBR EXBTRV 


..UUUUUUUUUUUUUUUUUUUUUUUUUHUUUUUUUUUUUUUUUUUUUUUddU 
..END OF UNSCRM.SR 
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0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0001 
0002 ..ORDER.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 


24 MAY 80 


8:45 PM 


..################################################## 
..ORDER.SR COLU
rn REORDER 


..A RESULT OF SPLITTING THE 2M FFT DATA INTO TWO M 
..FUNCTIONS (REAL & IMAGINARY) AND THEN TRANSFORMING 
..THE M SERIES IS THAT OUR OUTPUT IS ORDERED AS 
..PER THE SPLIT SERIES, NOT THE ORIGINAL. 
..TO REGAIN THE ORIGINAL, REORDER AS FOLLOWS: 
..(SEE "THE FAST FOURIER TRANSFORM" BRIGHAM P.169) 


..FOR N = [O...M-l] 
..2 * XR(N) 


[R(N)+R(M-N) ] 
* [I(N)+I(M-N)] 
* [R(N)-R(M-N)] 
[I(N)-I(M-N) ] 
* [I(N)+I(M-N)] 
* [R(N)-ROf-N)] 


+ COS(2*PI*N/2*M) 
- SIN(2*PI*N/2*M) 


..2 * XI(N) .. 


- SIN(2*PI*N/2*M) 
- COS(2*PI*N/2*M) 


..FOR N .. [1...M-l] 
..2 * XR(M-N) = * 
+ COS(2*PI*(M-N)/2*M) * 
- SIN(2*PI*(M-N)/2*M) * 


..2 * XI(M-N) 


[R( M-N)+R( N) ] 
[I(M-N)+I(N) ] 
[R(M-N)-R(N) ] 
[I(M-N)-I(N)] 
* [I(M-N)+I(N)] 
* [R(M-N)-R(N)] 


- SIN(2*PI*(M-N)/2*M) 
- COS(2*PI*(M-N)/2*M) 


..WE WILL USE THE FACTS: 


SIN(2*PI*(M-N)/2*M) + SIN(2*PI*N/2*M) 
COS(2*PI*(M-N)/2*M) - COS(2*PI*N/2*M) 
..AND [R(M-N)-R(N)] = - [R(N)-R(M-N)] 


..AND ALLOW THE RESULTS TO BE SCALED BY 2 
. . SO : 
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Program Code 
0000 0277 . .LOREAL = RLADD + (LOCOS*IMADD) - (LOSIN*RLSBLH) 
0000 0278 ..LOIMAG .. IMSBLH - (LOSIN*IMADD) - (LOCOS*RLSBLH) 
0000 0279 . .HIREAL = RLADD - (LOCOS* UIADD) + (LOSIN*RLSBLH) 
0000 0280 ..HIIMAG a IMSBHL - (LOSIN*IMADD) - (LOCOS*RLSBLH) 
0000 0281 
0000 0282 ..WHERE: RLADD .. (LOREAL+HIREAL) 
0000 0283 RLSBLH a (LOREAL-HIREAL) 
0000 0284 RLSBHL - (HIREAL-LOREAL) 
0000 0285 IMADD a (LOIMAG+HIIMAG) 
0000 0286 IMSBLH a (LOIMAG-HIIMAG) 
0000 0287 IMSBHL a (HIIMAG-LOIMAG) 
0000 0288 ..UUUUU#UUUUUUUUU#U#U##U#U#UUUUUUU##U#UUUUU#U#U##### 
0000 0289 
0000 0290 
0000 0291 ..EXTERNAL ROUTINUES 
0000 0292 
0000 0293 SUBROT=U2800 ..SUBROUTINUE BLOCK 
0000 0294 WRPTSTaSUBROT ..WRAPAROUND TEST 
0000 0295 DTASCL-U2960 ..DATA SCALE 
0000 0296 
0000 0297 ..INTERNAL VARIABLES 
0000 0298 
0000 0299 LOREAL=CSVLU+2 ..LOW REAL ADDRESS POINTER 
0000 0300 LOIMAG=LOREAL+2 ..LOW IMAGINARY ADDRESS PTR 
0000 0301 HIREALaLOIMAG+2 ..HIGH REAL ADDRESS POINTER 
0000 0302 HIIMAGaHIREAL+2 ..HIGH IMAGINARY ADDRESS PTR 
0000 0303 
0000 0304 TRGINC=HIIMAG+2 . . TRIG INCREMENT 
0000 0305 LOSIN-TRGINC+2 . .LOW SINE VALUE 
0000 0306 LOCOS=LOSIN+2 ..LOW COSINE VALUE 
0000 0307 
0000 0308 RLADD-LOCOS+2 . .REAL ADD 
0000 0309 RLSBLH=RLADD+2 ..REAL SUB LOW - HIGH 
0000 0310 RLSBHL=RLSBLH+2 ..REAL SUB HIGH - LOW 
0000 0311 IMADD=RLSBHL+2 . .IMAG ADD 
0000 0312 IMSBLHaIMADD+2 ..IMAG SUB LOW - HIGH 
0000 0313 IMSBHL=IMSBLH+2 ..IMAG SUB HIGH - LOW 
0000 0314 
0000 0315 
0000 0316 ORG 111D20 
LD20 0317 
1D20 0318 ..BEGIN HERE 
1D20 0319 
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ID20 
ID20 
ID20 
ID20 
ID20 F8D6A8; 
ID23 
ID23 
ID23 48B948A9; 
ID27 
ID27 
ID27 19191919; 
ID2B 
ID2B 
ID2B F8E8AC; 
ID2E 
ID2E 
ID2E 49BB5CIC; 
ID32 49AB5C; 
ID35 
ID35 
ID35 F8EDAC; 
ID38 
ID38 
ID38 EC; 
ID39 8BFDFE73; 
ID3D 9B 7D2 77 3; 
ID41 
ID41 
ID41 8BFCFE73; 
ID45 9B7C2673; 
ID49 
ID49 
ID49 
ID49 
ID49 
ID49 F830B9; 
ID4C F8D8A9; 
ID4F 
ID4F 
1D4F F8DOA8; 
ID52 
ID52 
ID52 F8BOAC; 
ID55 
ID55 
ID55 F800BAF805AA; 
ID5B 


0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 


ASP FFT program 
program Code 


ORDER: ..COLUMN REORDER 
.................................................... 
..INITIALIZE 
..GET R(FRP) TO FFT LENGTH POINTER 
LDI A.O(FLNPTR); PLO FRP 
..LOAD FLN### POINTER VALUE INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..GET R(MP) TO THIS TRIG INC VALUE 
INC MP; INC MP; INC MP; INC MP 


..GET R(ZAPl) TO TRIG INC VARIABLE LOCATION 
LDI A.O(TRGINC); PLO ZAP 1 


..PASS TRIG INC VALUE 
LDA MP; PHI ZAP3; STR ZAP 1; INC ZAP 1 
LDA MP; PLO ZAP3; STR ZAP 1 


..GET R(ZAPl) TO LOCOS.O 
LDI A.O(LOCOS+l); PLO ZAPI 


..LOCOS (- TRGLWA - TRGINC 
SEX ZAPI 
GLO ZAP3; SDI A.O(TRGLWA); STXD 
GHI ZAP3; SDBI A.l(TRGLWA); STXD 


..LOSIN (- TRGFWA + TRGINC 
GLO ZAP3; ADI A.O(TRGFWA); STXD 
GHI ZAP3; ADCI A.l(TRGFWA); STXD 
.................................................... 
..SCALE FFT DATA TO MAXIMUM #IFFF 
..(SO NO OVERFLOWS) 


..GET R(MP) TO BASE 
LDI A.l(BASE); PHI MP 
LDI A.O(BASE); PLO MP 


..GET R(FRP) TO FFT LENGTH 
LDI A.O(FFTLN); PLO FRP 


..GET R(ZAPl) TO YSLWA+l POI
ER 
LDI A.O(YSTBL+2); PLO ZAPl 


..LOAD 

IMUM SHIFT (5) INTO R(ZAP2) 
LDI #00; PHI ZAP2; LDI #05; PLO ZAP2 
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105B ; 0367 
105B F829BO; 0368 
lOSE F860AO; 0369 
1061 00; 0370 
1062 0371 
1062 0372 
1062 0373 
1062 0374 
1062 0375 
1062 0376 
1062 0377 
1062 0378 
1062 0379 
1062 ; 0380 
1062 F808A8; 0381 
1065 48B048AD; 0382 
1D69 0383 
1D69 0384 
1069 F8E3A8; 0385 
106C E8; 0386 
1D60 80FC0273; 0387 
1071 9D7C0073; 0388 
1075 0389 
1D75 0390 
1075 80739073; 0391 
1079 0392 
1079 0393 
1D79 0394 
1D79 F801A8; 0395 
107C 80F4AD28; 0396 
1080 9074BO; 0397 
1083 0398 
1083 0399 
1083 F8E7A8; 0400 
1086 80FF0273; 0401 
108A 907F0073; 0402 
108E 0403 
108E 0404 
108E 80FF0473; 0405 
1092 907F0073; 0406 
1096 0407 
1096 0408 
1096 0409 
1096 0410 
1096 0411 
1096 0412 
1096 F828BO; 0413 
1099 F800AO; 0414 
109C 0415 


..CALL OAT A SCALE 
LOI A.1(OTASCL); PHI ZAP 
LDI A.O(DTASCL); PLO ZAP 
SEP ZAP ..ZAP a OAT A SCALE 


..************************************************** 
..SET LOREAL (- BASE 
LOIMAG (- BASE + 2 
HIREAL (- BASE + FFTLN - 4 
HIIMAG (- BASE + FFTLN - 2 
..AND CHECK FOR WRAPAROUND 


..LOAD BASE ADDRESS VALUE INTO R(MA) 
LDI A.O(BASE); PLO FRP 
LDA FRP; PHI MA; LOA FRP; PLO MA 


..STORE BASE + 2 INTO LOIMAG 
LOI A.0(LOIMAG+1); PLO FRP 
SEX FRP 
GLO MA; ADI 1102; STXD 
GHI MA; AOCI 1100; STXO 


..STORE BASE ADORESS VALUE INTO LOREAL 
GLO MA; STXD; GHI MA; STXD 


..ADD FFTLN VALUE TO BASE ADORESS VALUE 
..ANO SAVE IN R(MA) 
LOI A.0(FFTLN+1); PLO FRP 
GLO MA; ADD; PLO MA; OEC FRP 
GHI r-tA.; ADC; PHI MA 


..STORE (BASE + FFTLN) - 2 INTO HIIMAG 
LOI A.0(HIIMAG+1); PLO FRP 
GLO MA; SMI 1102; STXD 
GHI MA; 5MBI 1100; STXO 


..STORE (BASE + FFTLN) - 4 INTO HIREAL 
GLO MA; SMI 1104; STXO 
GHI MA; 5MBI 100; STXD 


..CHECK FOR WRAPAROUND 
..CHECK HlIMAG, THEN HIREAL, THEN LOIMAG 
..UNTIL YOU'RE UNOER BOUNOARY 


..GET R(ZAP) TO WRAPAROUNO TEST 
LOI A.1(WRPTST); PHI ZAP 
LOI A.O(WRPTST); PLO ZAP 
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1D9C 
1D9C F8BOAC; 
1D9F 
1D9F 
1D9F F8E6A8; 
1DA2 
1DA2 
1DA2 
1DA2 
1DA3 
1DA7 
1DA7 ; 
1DA7 DO; 
1DA8 
1DA8 
1DA8 
1DA8 9B; 
1DA9 C21DBE; 
lDAC ; 
1DAC ; 
lDAC E8; 
lDAD 8D739D73; 
1DB1 
1DB1 
1DB1 88FFE2; 
1DB4 987F30; 
1DB7 CB1DBE; 
1DBA ; 
. 
1DBA ; 
1DBA ; 
1DBA 28; 
1DBB ; 
1DBB ; 
1DBB C01DA2; 
1DBE 
1DBE 
1DBE 
1DBE 
1DBE 
1DBE 
1DBE 
1DBE 
1DBE 
1DC1 
1DC5 
10C5 
1DC5 48BE08AE; 
10C9 ; 


, 
E8; 
72BDFOAD; 


. 
F8EOA8; 
48B048AD; 


ASP FFT Program 
Program Code 


0416 ..GET R(ZAP1) TO YSLWA+1 POINTER (@ YSTBL+2) 
0417 LDI A.0(YSTBL+2); PLO ZAP1 
0418 
0419 ..GET R(FRP) TO HIIMAG POINTER 
0420 LDI A.O(HllMAG); PLO FRP 
0421 
0422 ..LOAD THE ADDRESS AT R(FRP) INTO R(MA) 
0423 LDPTR: . .LOAD POINTER 
0424 
0425 
0426 
0427 ..CHECK FOR WRAPAROUND 
0428 SEP ZAP 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 ..IF 
0440 
0441 
0442 
0443 
0444 
0445 ..ELSE GET TO THE NEXT POINTER 
0446 DEC FRP 
0447 
0448 ..AND GO BACK FOR THE NEXT CHECK 
0449 LBR LOPTR ..GOTO LOAD POINTER 
0450 
0451 
0452 ................................................*... 
0453 ..COMPUTE LOREAL(O) <- 2 · (LOREAL + LOIMAG) 
0454 AND LOIMAG(O) <- HOOOO AND STORE 
0455 
0456 
0457 
0458 
0459 
0460 
0461 ..GET R(MQ) TO LOIMAG(O) 
0462 LOA FRP; PHI 

; LDN FRP; PLO MQ 
0463 


SEX FRP 
LDXA; PHI MA; LDX; PLO MA 


..ZAP = WRAPAROUND TEST 


..ON RETURN, IF YOU WERE BELOW BOUNDARY (OK) 
..R(ZAP3.1) WILL BE HOO 
GHI ZAP3 
LBZ CMPZRO 


..IF R(ZAP3.1) 
 '00 
..SKIP TO COMPUTE ZERO 


..ELSE STORE BACK CHANGED VALUE 
SEX FRP 
GLO MA; STXD; GHI MA; STXD 


IT WAS THE LAST POINTER. SKIP TO COMPUTE ZERO 
GLO FRP; SMI A.O(LOlMAG) 
GHI FRP; 5MBI A.1(LOIMAG) 
LBNF CMPZRO ..IF R(FRP) < LOlMAG, THEN 
..SKIP TO COMPUTE ZERO 


CMPZRO: ..COMPUTE ZERO VALUES 
..GET R(MA) TO LOREAL(O) 
LOI A.O(LOREAL); PLO FRP 
LDA FRP; PHI MA; LDA FRP; PLO 
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1DC9 
1DC9 
1DCD 
1DCE 
1DD2 
1DD6 
1DD6 
1DD6 1D; 
1DD7 8FFE73; 
1DDA 9F7E73; 
1DDD ; 
1DDD ; 
1DDD F8005E2E5E; 
1DE2 
1DE2 
1DE2 
1DE2 
1DE3 
1DE6 
1DE6 
1DE6 
1DE6 
1DE6 
1DE6 
1DE6 F8EOA8i 
1DE9 
1DE9 
1DE9 F8E4AC; 
1DEC 
1DEC 
1DEC F830BB; 
1DEF F8F3AB; 
1DF2 
1DF2 
1DF2 
1DF2 
1DF5 
1DF8 
1DF9 
1DF9 
lDF9 
lDF9 
lDF9 . 
lDF9 F8F9AB; 
lDFC 
lDFC 
lDFC 
lDFC DO; 
lDFD 


4EBFOEAF; 
EDi 
1D8FF4AF; 
2D9F74BF; 


. 
E8; 
C01EFA; 


F81FBO; 
F882AO; 
DOi 


0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 


..ADD LOREAL(O) + LOIMAG(O) 
LDA MQi PHI AC; LDN MQi PLO AC 
SEX MA 
INC MAi GLO AC; ADD; PLO AC 
DEC MA; GHI ACi ADC; PHI AC 


..THEN MULTIPLY BY 2 AND STORE AT LOREAL(O) ADDRESS 
INC MA 
GLO AC; SHL; STXD 
GHI ACi SHLC; STXD 


..THEN STORE #0000 AT LOIMAG ADDRESS 
LDI #OOi STR MQi DEC MQi STR MQ 


..THEN GOTO INCREMENT LO---- POINTERS 
..(R(FRP) IS OK AT LOIMAG.O, JUST SEX FRP) 
SEX FRP 
LBR LOUP 


..************************************************** 


MIDS IX : 


..COMPUTE 6 MIDDLE VALUES 


..GET R(FRP) TO LOREAL POINTER 
LDI A.O(LOREAL); PLO FRP 


..GET R(ZAP1) TO HIREAL POI
TER 
LDI A.O(HIREAL)i PLO ZAPl 


..GET R(ZAP3) TO RLSBHL+1 ADDRESS 
LDI A.l(RLSBHL+1)i PHI ZAP3 
LDI A.0(RLSBHL+1); PLO ZAP3 


. . CALL COMBO 
..TO GET RLADD. RLSBLH & RLSBHL 
LDI A.1(COMBO); PHI ZAP 
LDI A.O(COMBO); PLO ZAP 
SEP ZAP ..ZAP = COMBO 


. .ON RETURN 
..R(FRP) IS AT LOIMAG POINTER 
..R(ZAP1) IS AT HIIMAG POINTER 
..GET R(ZAP3) TO IMSBHL+l ADDRESS 
LDI A.0(IMSBHL+1)i PLO ZAP3 


. . RECALL COMBO 
..FOR IMADD. IMSBLH & IMSBHL 
S EP ZAP . . ZAP COMBO 
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1DFD 
1DFD 
1DFD 
1DFD 
1DFD 
1DFD F8EOA8; 
1EOO 
1EOO 
1EOO 48B948A9; 
1E04 
1E04 
1E04 F8EEAC; 
1E07 
1E07 
1E07 4CBF5919; 
1EOB 4CAF59; 
1EOE 
1EOE 
1EOE , 
1EOE 48B948A9; 
1El2 
1E12 
1E12 F8F6AC; 
1E15 
1E15 
1E15 4C5919; 
1E18 4C59; 
1E1A ; 
1E1A ; 
1E1A ; 
1E1A 48B948A9; 
1E1E 
1E1E 
1E1E 9F5919; 
lE21 8F59; 
lE23 
lE23 
lE23 
1E23 48B948A9; 
1E27 
1E27 
1E27 F8F8AC; 
1E2A 
1E2A 
1E2A 4C5919; 
1E2D 4C59; 
1E2F ; 


0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 


ASP FFT program 
program Code 


.................................................... 
..STORE THE FINAL VALUES 
..DO THE FIRST COLUMN STORES 


..GET R(FRP) TO LOREAL POINTER 
LDI A.O(LOREAL); PLO FRP 


..LOAD LOREAL ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..GET R(ZAP1) TO RLADD 
LDI A.O(RLADD); PLO ZAP1 


..PASS RLADD TO M(LOREAL) 
LDA ZAP1; PHI AC; STR r1P; INC MP 
LDA ZAP1; PLO AC; STR MP 


..LOAD LOTIMAG ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..GET R(ZAP1) TO IMSBLH 
LDI A.O(IMSBLH); PLO ZAPl 


..PASS IMSBLH TO M(LOIMAG) 
LDA ZAP1; STR MP; INC MP 
LDA ZAP 1 ; STR MP 


..LOAD HIREAL ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO ræ 


..STORE RLADD INTO M(HIREAL) 
GHI AC; STR MP; INC MP 
GLO AC; STR MP 


..LOAD HITIMAG ADDRESS INTO R(MP) 
LDA FRP; PHI 
P; LOA FRP; PLO MP 


..GET R(ZAP1) TO IMSBHL 
LDI A.O(IMSBHL); PLO ZAP1 


..PASS IMSBHL TO M(HIIMAG) 
LDA ZAP 1 ; STR MP; INC MP 
LOA ZAP 1 ; STR MP 
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1E2F 0560 
1E2F 0561 
1E2F 0562 
1E2F 0563 
1E2F 0564 
1E2F F8ECACj 0565 
1E32 0566 
1E32 j 0567 
1E32 F830BEj 0568 
1E35 F8F4AEj 0569 
1E38 0570 
1E38 0571 
1E38 j 0572 
1E38 F830BFj 0573 
1E3B F8EEAFj 0574 
1E3E 0575 
1E3E j 0576 
1E3E F81FBOj 0577 
1E41 F8B5AOj 0578 
1E44 DOj 0579 
1E45 0580 
1E45 j 0581 
1E45 F8EOA8j 0582 
1E48 j 0583 
1E48 j 0584 
1E48 48B948A9j 0585 
1E4C j 0586 
1E4C j 0587 
1E4C DOj 0588 
1E40 j 0589 
1E40 j 0590 
1E4D E960j 0591 
1E4F 8BAAF473j 0592 
1E53 9BBA7473j 0593 
1E57 0594 
1E57 0595 
1E57 j 0596 
1E57 F8EAACj 0597 
1E5A j 0598 
1E5A j 0599 
1E5A F8F4AEj 0600 
lE5D 0601 
lE5D j 0602 
lE5D OOj 0603 
lE5E 0604 
lE5E j 0605 
1E5E 48B948A9j 0606 
lE62 0607 
lE62 j 0608 
lE62 OOj 0609 
1E63 0610 


..-------------------------------------------------- 


..DO THE SECOND COLUMN MULTIPLIES 
..AND ADD TO/SUBTRACT FROM PREVIOUS DATA 


..GET R(ZAP1) TO LOCOS POINTER 
LDI A.O(LOCOS)j PLO ZAP 1 


..GET R(MQ) TO IMADD 
LDI A.1(IMADD)j PHI MQ 
LDI A.O(IMADD)j PLO MQ 


..GET R(AC) TO RLAOD 
..(DUMMY ADDRESS - HAVE TO "INP" SOMEWHERE) 
LDI A.1(RLADD)j PHI AC 
LDI A.O(RLADD)j PLO AC 


..CALL ORDER MULTIPLY 
LDI A.1(ORDMLT)j PHI ZAP 
LOI A.O(ORDMLT)j PLO ZAP 
SEP ZAP .. ZAP :a ORDER HULT 


..HALFWAY THROUGH GET R(FRP) TO LOREAL POINTER 
LDI A.O(LOREAL)j PLO FRP 


..LOAD LOREAL ADDRESS INTO R(MP) 
LDA FRPj PHI MPj LDA FRPj PLO HP 


..THEN RETURN TO GET RESULT 
SEP ZAP 


..ADD RESULT TO M(LOREAL) 
SEX MP j IRX 
GLO ZAP3 j PLO ZAP2 j ADDj STXO 
GHI ZAP3j PHI ZAP2j ADCj STXD 


..GET R(ZAP1) TO LOSIN POINTER 
LDI A.O(LOSIN)j PLO ZAP1 


..GET R(MQ) TO IMADD 
LDI A.O(IMADD)j PLO MQ 


..CALL ORDER MULTIPLY 
SEP ZAP 


..HALFWAY THROUGH LOAD LOIMAG ADDRESS INTO R(MP) 
LOA FRP j PHI MP j LDA FRP j PLO MP 


..THEN RETURN TO GET RESULT 
SEP ZAP 
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lE63 ; 0611 
lE63 E960; 0612 
lE65 8BF573; 0613 
lE68 9B7573; 0614 
lE6B ; 0615 
lE6B ; 0616 
lE6B ; 0617 
lE6B 48B948A9; 0618 
lE6F 0619 
lE6F 0620 
lE6F 608AF573; 0621 
lE73 9A7573; 0622 
lE76 0623 
lE76 0624 
lE76 ; 0625 
lE76 48B948A9; 0626 
lE7 A ; 0627 
lE7A ; 0628 
lE7A 608BF573; 0629 
lE7E 9B7573; 0630 
lE8l 0631 
lE8l 0632 
lE8l 0633 
lE8l 0634 
lE8l 0635 
lE8l 0636 
lE8l F8EAAC; 0637 
lE84 0638 
lE84 0639 
lE84 F8FOAE; 0640 
lE87 0641 
lE87 ; 0642 
lE87 00; 0643 
lE88 0644 
lE88 0645 
lE88 F8EOA8; 0646 
lE8B 0647 
lE8B ; 0648 
lE8B 48B948A9; 0649 
lE8F 0650 
lE8F 0651 
lE8F 00; 0652 
lE90 ; 0653 
lE90 ; 0654 
lE90 E960; 0655 
lEn 8BAAF573; 0656 
lE96 9BBA7573; 0657 
lE9A ; 0658 


ASP FFT program 
Program Code 


..SUBTRACT RESULT FROM M(LOlMAG) 
SEX MP; IRX 
GLO ZAP3; SO; STXD 
GHI ZAP3; SOB; STXO 


..------------------------------ 


..LOAD HIREAL ADORESS INTO R(MP) 
LOA FRP; PHI MP; LOA FRP; PLO MP 


..SUBTRACT (LOCOS*IMADO) FROM M(HIREAL) 
IRX; GLO ZAP2; SO; STXO 
GHI ZAP2; SOB; STXO 


..------------------------------ 


..LOAD HIIMAG ADORESS INTO R(MP) 
LOA FRP; PHI MP; LOA FRP; PLO UP 


..SUBTRACT (LOSIN*IMADO) FROU M(HIIMAG) 
IRX; GLO ZAP3; SO; STXO 
GHI ZAP3; SOB; STXO 


..-------------------------------------------------- 


..00 THE THIRD COLUMN MULTIPLIES 
..AND ADO TO/SUBTRACT FROM PREVIOUS OATA 


..GET R(ZAPl) TO LOSIN POINTER 
LOI A.O(LOSIN); PLO ZAPl 


..GET R(MQ) TO RLSBLH 
LOI A.O(RLSBLH); PLO MQ 


..CALL ORDER MULTIPLY 
SEP ZAP 


..HALFWAY THROUGH GET R(FRP) TO LOREAL POINTER 
LOI A.O(LOREAL); PLO FRP 


..LOAD LOREAL 
OORESS INTO R(MP) 
LOA FRP; PHI 
; LOA FRP; PLO MP 


..THEN RETURN TO GET RESULT 
SEP ZAP 


..SUBTRACT RESULT FROM M(LOREAL) 
SEX MP; IR.'{ 
GLO ZAP3; PLO ZAP2; SO; STXO 
GHI ZAP3; PHI ZAP2; SOB; STXO 
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lE9A 0659 
lE9A ; 0660 
lE9A F8ECAC; 0661 
lE9D 0662 
lE9D ; 0663 
lE9D F8FOAE; 0664 
lEAO ; 0665 
lEAO ; 0666 
lEAO DO; 0667 
lEAl 0668 
lEAl 0669 
lEAl 48B948A9; 0670 
lEAS 0671 
lEAS 0672 
lEAS DO; 0673 
lEA6 0674 
lEA6 ; 0675 
lEA6 E960; 0676 
lEA8 8BF573; 0677 
lEAB 9B7573; 0678 
lEAE ; 0679 
lEAE ; 0680 
lEAE ; 0681 
lEAE 48B948A9; 0682 
lEB2 0683 
lEB2 ; 0684 
lEB2 60; 0685 
lEB3 8AF473; 0686 
lEB6 9A7473 ; 0687 
lEB9 0688 
lEB9 0689 
lEB9 ; 0690 
lEB9 48B948A9; 0691 
lEBD 0692 
lEBD ; 0693 
lEBD 60; 0694 
lEBE 8BF573; 0695 
lECl 9B7573; 0696 
lEC4 0697 
lEC4 0698 


..GET R(ZAP1) TO LOCOS POINTER 
LDI A.O(LOCOS); PLO ZAPl 


..GET R(MQ) TO RLSBLH 
LDI A.O(RLSBLH); PLO MQ 


. . CALL ORDER t-fULTIPLY 
SEP ZAP 


..HALFWAY THROUGH LOAD LOIMAG ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..THEN RETURN TO GET RESULT 
SEP ZAP 


..SUBTRACT RESULT FROM M(LOIMAG) 
SEX MP; IRX 
GLO ZAP3; SD; STXD 
GHI ZAP3; SDB; STXD 


..LOAD HIREAL ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..ADD (LOSIN*RLSBLH) TO M(HIREAL) 
IRX 
GLO ZAP2; ADD; STXD 
GHI ZAP2; ADC; STXD 


..LOAD HllMAG ADDRESS INTO R(MP) 
LDA FRP; PHI MP; LDA FRP; PLO MP 


..SUBTRACT (LOCOS*RLSBLH) FROM M(HIIMAG) 
IRX 
GLO ZAP3; SD; STXD 
GHI ZAP3; SDB; STXD 
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lEC4 0699 
lEC4 0700 
lEC4 0701 
lEC4 0702 
lEC4 ; 0703 
lEC4 F8EDA8; 0704 
lEC7 0705 
lEC7 0706 
lEC7 F8E8AC; 0707 
lECA ; 0708 
lECA ; 0709 
lECA 4CBA4CAA; 0710 
lECE 0711 
lECE ; 0712 
lECE E8; 0713 
lECF 8AFS 73; 0714 
lED2 9A7S73; 0715 
lEDS 0716 
lEDS 0717 
lEDS 8AF4AF7 3; 0718 
lED9 9A74BF73; 0719 
lEDD 0720 
IEDD 0721 
lEDD 8FFDFE; 0722 
IEEO 9F7D27; 0723 
lEE3 CBlF6S; 0724 
lEE6 0725 
lEE6 0726 
IEE6 0727 
lEE6 0728 
lEE6 0729 
lEE6 0730 
lEE6 ; 0731 
IEE6 F8E7A8; 0732 
lEE9 E8; 0733 
IEEA F804FS73; 0734 
IEEE F8007S73; 0735 
IEF2 0736 
IEF2 0737 
IEF2 F804FS73 ; 0738 
IEF6 F8007S73; 0739 
lEFA ; 0740 


ASP FFT program 
Program Code 


....................................*............... 
..INC/DEC POINTERS. CHECK FOR DONE 


..INCREMENT TRIG POINTERS 
..GET R(FRP) TO LOCOS 
LDI A.O(LOCOS+l); PLO FRP 


..GET R(ZAPl) TO TRIG INC 
LDI A.O(TRGINC); PLO ZAPl 


..LOAD TRIG INC VALUE INTO R(ZAP2) 
LDA ZAPl; PHI ZAP2; LDA ZAPl; PLO ZAP2 


..LOCOS (- LOCOS - TRGINC 
SEX FRP 
GLO ZAP2; SD; STXD 
GHI ZAP2; SDB; STXD 


..LOSIN <- LOSIN + TRGINC 
GLO ZAP2; ADD; PLO AC; STXD 
GHI ZAP2; ADC; PHI AC; STXD 


..CHECK FOR LOSIN > TRGLWA (DONE CONDITION) 
GLO AC; SDI A.O(TRGLWA) 
GHI AC; SDBI A.I(TRGLWA) 
LBNF FIXHLF ..IF LOSIN > TRGLWA. THEN 
..GOTO FIX HALF VALUES 


.................................................... 
..ELSE. DECREMENT/INCREMENT FIFO POINTERS 


..HllMAG <- HIlMAG - 4 
LDI A.O(HIIMAG+l); PLO FRP 
SEX FRP 
LDI #04; SD; STXD 
LDI #00; SDB; STXD 


..HIREAL <- HIREAL - 4 
LDI #04; SD; STXD 
Lor #00; SDB; STXO 
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IE FA 
lEFA 
lEFA 
lEFA 
lEFA ; 
lEFA F804F473; 
lEFE F8007473; 
lF02 
IF02 , 
IF02 F804F473; 
IF06 F8007473; 
IFOA ; 
IFOA ; 
IFOA ; 
IFOA ; 
IFOA F8C4A8; 
IFOD 08CAlF62; 
lFll 
IFll 
IFll 
IFll 
IFll F800AF; 
IFl4 
IFl4 
IFl4 
IFl7 
IFl8 
IFl8 
IF18 
IFl8 
IFlD 
IF2l 
lF24 
lF24 
lF24 
IF24 188EFC0173; 
IF29 9E7C3E58; 
lF2D 
IF2D , 
lF2D 8FCAIF3A; 
1F3l 
lF3l 
lF31 . 
1F31 F8E7A8; 
IF34 
1F34 , 
1F34 F8FFAF; 
1F37 
1F37 ; 
1F37 C01Fl8; 
IF3A ; 


, 
F8E5A8; 
E8; 


, 
F801F5AE28; 
F83A75BE; 
C3lF2D; 


0741 LOUP: ..LO---- FIFO POINTERS UP 
0742 ..ENTRY POINT FROM LOREAL(O)/LOlMAG(O) COMPUTE 
0743 ..R(FRP) @ LOIMAG.O, X @ R(FRP) 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 HITEST: ..HI---- POINTER TEST 
0769 ..CHECK FOR HI---- ( YSFWA 
0770 LDI A.O(YSFWA); SD; PLO MQ; DEC FRP 
0771 LDI A.1(YSFWA); SDB; PHI MQ 
0772 LBDF HICHK2 ..IF HI---- 
> YSFWA, THEN 
0773 ..GOTO CHECK FOR 2ND HI 
0774 
0775 
0776 
0777 
0778 
0779 ..CHECK FOR 2ND PASS 
0780 HICm<2: GLO AC; LBNZ LOCHK ..IF 2ND PASS, THEN 
0781 ..GOTO LO---- PTR CHECK 
0782 
0783 ..ELSE GET TO HIIMAG.O 
0784 LDI A.0(HIlMAG+1); PLO FRP 
0785 
0786 ..SET 2ND PASS FLAG 
0787 LDI HFF; PLO AC 
0788 
0789 ..AND GOTO RUN HIIMAG TEST 
0790 LBR HITEST 
0791 


. .LOlMAG (- LOIMAG + 4 
LDI #04; ADD; STXD 
LDI #00; ADC; STXD 


..LOREAL (- LOREAL + 4 
LDI #04; ADD; STXD 
LDI #00; ADC; STXD 


..TEST FOR ADDRESSES PAST BOUNDARIES 
..IF IT'S A P-FFT, YOU KNOW ADDRESSES OK 
..CHECK P-FFT FLAG FOR TRUE(#FF) 
LDI A.O(PFTFLG); PLO FRP 
LDN FRP; LBNZ QDCKDN ..IF TRUE, THEN 
..GOTO QUAD CHECK DONE 


..ELSE IT'S A S-FFT 
..SET 1ST PASS FLAG FOR HI---- CHECK 
LDI #00; PLO AC 


..GET R(FRP) TO HIREAL.O 
LDI A.O(HIREAL+l); PLO FRP 
SEX FRP 


..ELSE, HI---- (- (NEGATIVE UNDER) + YSLWA+1 
INC FRP; GLO MQ; ADI A.0(YSLWA+1); STXD 
GHI MQ; ADCI A.l(YSLWA+1); STR FRP 
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1 F3A j 
IF3A ; 
IF3A F800AF; 
IF3D 
IF3D . 
IF3D F8E3A8; 
lF40 
IF40 
lF40 ; 
lF40 F801F5AE28; 
lF45 F83E75BE; 
IF49 CBIF55; 
IF4C 
IF4C 
lF4C 
IF4C 188EFC0173; 
IF51 9E7C3A58; 
IF55 
IF55 
IF 55 8FCAlF62; 
IF59 
lF59 
IF59 . 
IF59 F8EIA8; 
IF5C 
IF5C . 
IF5C F8FFAF; 
IF5F 
IF5F 
lF5F COIF40; 
IF62 
IF62 
IF62 
IF62 ; 
IF62 COIDE6; 
IF65 ; 
IF65 ; 


ASP FFT Program 
Program Code 


0792 LOCHK: . .LO---- FIFO PTR CHECK 
0793 ..SET 1ST PASS FLAG FOR LO---- CHECK 
0794 LDI #00; PLO AC 
0795 
0796 ..GET R(FRP) TO LOIMAG.O 
0797 LDI A.O(LOlMAG+l); PLO FRP 
0798 
0799 LOTEST: ..LO---- POINTER TEST 
0800 ..CHECK FOR LO---- 
> YSLWA+l 
0801 LDI A.O(YSLWA+l); SD; PLO MQ; DEC FRP 
0802 LDI A.l(YSLWA+l)j SDB; PHI MQ 
0803 LBNF LOCHK2 ..IF LO---- < YSLWA+l, THEN 
0804 ..GOTO CHECK FOR 2ND LOW 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 ..ELSE GET TO LOREAL.O 
0815 LDI A.O(LOREAL+l); PLO FRP 
0816 
0817 ..SET 2ND PASS FLAG 
0818 LDI #FF; PLO AC 
0819 
0820 ..AND GO TO RUN LOREAL TEST 
0821 LBR LOTEST 
0822 
0823 QDCKDN: ..QUAD CHECK DONE 
0824 ..ADDRESSES ALL OK BY BOUNDARIES 
0825 ..GOTO COMPUTE THESE MIDDLE SIX VALUES 
0826 LBR MIDSIX 
0827 
0828 


..ELSE, LO---- <- (POSITIVE OVER) + YSFWA 
INC FRP; GLO MQj ADI A.O(YSFWA); STXD 
GHI MQ; ADCI A.l(YSFWA); STR FRP 


..CHECK FOR 2ND PASS 
LOCHK2: GLO AC; LBNZ QDCKDN ..IF 2ND PASS. THEN 
..GOTO QUAD CHECK DONE 
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IF65 
IF65 
IF65 
IF65 
IF65 
IF65 
IF65 
IF65 
IF65 
IF65 
IF65 F8E2A8; 
IF68 48B908A9; 
IF6C 09FE; 
IF6E CBIF73; 
IF71 F901; 
IF73 
IF73 7676; 
IF75 5919; 
IF77 097659; 
IF7A 
IF7A 
lF7A 
IF7 A ; 
IF7A D5; 
IF7B 
IF7B C4C4C4C4C4C4; 
IF81 


0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 


..************************************************** 
FlXHLF: .. FIX HALF VALUES 
..YOU HAVEN'T COMPUTED THE VALUES CORRECTLY 
FOR THE M INDICIES 
..IT HAPPENS THAT THE REAL(M) VALUE IS OK (LUCK) 
..BUT lMAG(M) IS TWICE WHAT IT SHOULD BE 
..DIVIDE IT BY 2 FOR THE CORRECT VALUE 
..(WITH SIGN EXTEND) 


..M(LOIMAG) STILL HAS THE CORRECT ADDRESS 
LDI A.O(LOlMAG); PLO FRP 
LDA FRP; PHI MP; LDN FRP; PLO MP 
LDN MP; SHL 
LBNF HLFNEG 
ORI 1101 


HLFNEG: 


..IF NEG, THEN 
..SET SIGN EXTEND 
..HALF VALUE NEGATIVE 


RSHR; RSHR 
STR MP; INC MP 
LDN MP; SHRC; STR MP 


..************************************************** 


NDORDR: 


. .END ORDER 


EXIT 


,IIC4C4C4C4C4C4 
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lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 
lF8l 03; 
lF82 
lF82 
lF82 
lF82 
lF82 48B948A9; 
lF86 ; 
lF86 ; 
lF86 4CBA4CAA; 
lF8A ; 
lF8A ; 
lF8A 49BF49AF; 
lF8E 
lF8E 
lF8E 
lF8F 
lF92 
lF94 
lF97 
lF99 
lF99 
1F99 
lF9C 
lF9E 
lFAl 
lFA3 
lFA3 
lFA3 
lFA6 
lFA8 
lFAB 
1 FAD 
lFAD ; 
lFAD C01F8l; 


EA; 
lA8FF5; 
5B2B; 
2A9F75; 
5B2B; 


. 
lA8FF7; 
5B2B; 
2A9F77 ; 
5B2B; 


. 
lA8FF4; 
5B2B; 
2A9F74; 
582B; 


ASP FFT Program 
Program Code 


0856 ..##############################8################### 
0857 ..COMBO.SR ..COMBINE Lo/HI-REAL/IMAG 
0858 
0859 
0860 
0861 
0862 ..AND STORES THEM 
0863 
0864 ..IT ASSUMES R(FRP) IS AT LO PTR, R(ZAP1) IS AT 
0865 ..HI PTR, AND R(ZAP3) IS AT HI-LO ADDRESS (+1) 
0866 
0867 
0868 
0869 
0870 
0871 ..RETURN PORTION 
0872 EXCMBO: 
0873 
0874 
0875 ..ENTER HERE 
0876 COMBO: . . COMBINE VALUES 
0877 ..GET R(MP) TO LO---- ADDRESS 
0878 LOA FRP; PHI MP; LOA FRP; PLO MP 
0879 
0880 ..GET R(ZAP2) TO HI---- ADDRESS 
0881 LOA ZAPl; PHI ZAP2; LOA ZAPl; PLO ZAP2 
0882 
0883 ..GET LO---- VALUE INTO R(AC) 
0884 LOA MP; PHI AC; LOA MP; PLO AC 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 . .00 
0894 
0895 
0896 
0897 
0898 
0899 . .00 
0900 
0901 
0902 
0903 
0904 
0905 ..THEN RETUR
 THRU TOP 
0906 LBR EXC
BO 


..THIS ROUTINUE COMPUTES HI - LO VALUE 
LO - HI VALUE 
LO + HI VALUE 


..ON RETURN R(FRP) & R(ZAPl) ARE INCREMENTED BY 2 
..AND R(ZAP3) IS AT LO-HI + 1 
..##########################################1####### 


SEP PC 


.. EXIT COMBO 
..RESET TO R(PC) 


..00 HI-LO AND STORE 
SEX ZAP2 
INC ZAP2; 
STR ZAP3; 
DEC ZAP2; 
STR ZAP3; 


GLO AC; SO 
DEC ZAP3 
GHI AC; SOB 
DEC ZAP3 


LO-HI AND STORE 
INC ZAP2; GLO AC; SM 
STR ZAP3; DEC ZAP3 
DEC ZAP2; GHI AC; 5MB 
STR ZAP3; DEC ZAP3 


Lo+HI AND STORE 
INC ZAP2; GLO AC; ADD 
STR ZAP3; DEC ZAP3 
DEC ZAP2; GHI AC; ADC 
STR ZAP3; DEC ZAP3 
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1FBO 
1FBO 
1FBO 
1FBO 
lFBO 
1FBO 
1FBO 
lFBO 
1FBO 
1FBO 
1FBO 
1FBO 
lFBO 
1FBO 
1FBO 
1FBO 
lFBO 
1FBO 
lFBO 
1FBO 
1FBO 
1FBO 
1FBO 
1FB1 
lFB3 
1FB3 
1FB3 7003; 
1FB5 
1FB5 
1FB5 ; 
1FB5 4CBD4CAD; 
lFB9 ; 
1FB9 ; 
1FB9 EO; 
1FBA 7100; 
1FBC ; 
1FBC ; 
1FBC 6110; 
IFBE 6200; 
1FCO ED; 
1FC1 64; 
1FC2 63; 
1FC3 EE; 
1FC4 66; 
LFC5 65; 
IFC6 EO; 
IFC7 6700; 
IFC9 
IFC9 ; 
1FC9 D3; 
1FCA ; 


, 
EO; 
6100; 


0907 
0908 ..000000000##0##00##00000000#000000000000000000000#0 
0909 ..ORD

T.SR M(M(R(ZAP1))) * M(R(MQ)) -) R(ZAP3) 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 ..MA, MQ ARE LEFT INCREMENTED BY 2 
0923 
0924 ..NOTE: P MUST BE ZAP(RO) 
0925 ..OOOOOO#OOU#O#OO#O#O#O##OOO##O####OO#OOOO#HOOO##OOO 
0926 
0927 
0928 EXITM: 
0929 
0930 
0931 
0932 ..ENABLE INTERRUPTS AND RETURN 
0933 RET ,#03 ..IE=1, X=O, p=3 
0934 
0935 ORD
fLT: ..ORDER MULTIPLY ROUTINUE 
0936 ..GET R(MA) TO OPA ADDRESS 
0937 LDA ZAP1; PHI MA; LDA ZAP1; PLO 

 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 ..NOW RETURN TO MAIN PROGR.
1 WHILE HARDWARE WORKS 
0956 SEP PC 
0957 


..THIS PROGRN1 ASSUMES ZAP1 POINTS TO OPERAND A PTR 
MQ POINTS TO OPERAND B 
..AND AC POINTS TO A DUMMY LOCATION 
..( FOR INP OPERATION) 


..IT DELIVERS THE OPERANDS TO THE MULTIPLIER 
..JUMPS OUT WHILE THE HARDWARE OPERATES 
..THEN RETURNS TO STORE THE RESULT 
..SINCE ONE OPERAND IS A FRACTION 
..THE RESULT IS SCALED BY 2 TO BE CORRECT 


SEX ZAP 
OUT 1,000 


..EXIT ORDER MULTIPLY 
. .OUT IMMEDIATE 
..TURN OFF MULTIPLIER 


..DISABLE INTERRUPTS 
SEX ZAP 
DIS ,000 


. .OUT IMMEDIATE 
. . IE=O, X=O, p=O 


..OUTPUT OPERANDS 
OUT 1, #10 
OUT 2,1100 
SEX MA 
OUT 4 
OUT 3 
SEX MQ 
OUT 6 
OUT 5 
SEX ZAP 
OUT 7,#00 


. . LATCH SEL4 
..RESET MULTIPLIER 
..SET X TO MA FOR OPA OUT 
..OPA.1 TO MULTIPLIER 
. .OPA.O TO 
1ULTIPLIER 
..SET X TO MQ FOR OPB OUT 
. .OPB.1 TO 
1ULTIPLIER 
..OPB.O TO MULTIPLIER 
. .OUT IMMEDIATE 
. . EXE CUTE 
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1FCA ; 
1FCA EFlF; 
1FCC 6BFE; 
1FCE AB73; 
1FDO 6C7E; 
1FD2 BB5F; 
1FD4 
1FD4 
1FD4 30BO; 
1FD6 
1FD6 
1FD6 


0958 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 


ASP FFT Program 
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..WHEN YOU COME BACK, STORE THE RESULT 
SEX AC; INC AC ..SET X TO AC FOR RESULT IN 
INP 3; SHL ..GET LOW * 2 
PLO ZAP3; STXD ..SAVE & STORE 
INP 4; SHLC . .GET HIGH * 2 
PHI ZAP3; STR AC ..SAVE & STORE 


..AND RETURN THROUGH TOP 
BR EXITM 


..################################################## 
..END OF ORDER.SR 
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A.2.2 FIT Code 


A.2.2.1 MAGAPX (Magnitude Approximate) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 . .MAGAPX. SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 


20 JAN 80 


9:20 PM 


..############0##################################### 
..MAGAPX.SR ..MAGNITUDE APPROXIMATE 


..THIS ROUTINUE APPROXIMATES THE VALUE FOR MAGNITUDE 
..BY THE ALGORITHM: 
IF G(N)/4 =) L(N) 
THEN M(N) <- G(N) 
ELSE M(N) <- 0.7659 * [G(N) + L(N)] 


. . WHERE: 
G(N) <- GREATEST [ ABS.R(N) OR ABS.I(N) ] 
L(N) <- LEAST [ABS.R(N) OR ABS.I(N) ] 
..#0################################################ 


..EXTERNAL ROUTINUES 


SUBROT=f/2800 
SNMULT=SUBROT+4 


..SUBROUTINUE BLOCK #1 
. .SINE 
IDLTIPLY 


SUBRT2=fI2B50 
BDRYST=SUBRT2+4 
BDRYCK=SUBRT2+6 


..SUBROUTINUE BLOCK #2 
..BOUNDARY SET 
. . BOUNDARY CHECK 


DTASCL=fl2960 


. .DATA SCALE 
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0000 
0000 
0000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 ; 
2000 F830B9; 
2003 F8D8A9; 
2006 
2006 , 
2006 F8DOA8; 
2009 
2009 
2009 F8BOAC; 
200C 
200C 
200C 
200C F800BA; 
200F F806AA; 
2012 
2012 
2012 F829BO; 
2015 F860AO; 
2018 DO; 
2019 C4C4C4; 
201C 
201C 
201C 
201C 
201C F8D8AC; 
201F 4CBD; 
2021 4CAD; 
2023 
2023 
2023 F8BOAC; 
2026 
2026 
2026 F830B9; 
2029 F8DOA9; 
202C 
202C 
202C F82BBO; 
202F F854AO; 
2032 DO; 
2033 


0267 ..BEGIN HERE 
0268 
0269 
0270 
0271 MAGAPX: 
0272 
0273 ..************************************************** 
0274 ..SCALE VALUES TO MAX #3FFF (OR #COOO) 
0275 
0276 
0277 
0278 
0279 
0280 ..GET R(FRP) TO FFT-LENGTH 
0281 LDI A.O(FFTLN); PLO FRP 
0282 
0283 ..GET R(ZAP1) TO YSLWA+1 
0284 LDI A.0(YSTBL+2); PLO ZAP1 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 ..************************************************** 
0298 
0299 
0300 
0301 
0302 
0303 
0304 ..GET R(ZAP1) TO YSLWA+1 POI
TER 
0305 LDI A.0(YSTBL+2); PLO ZAP1 
0306 
0307 
0308 
0309 
0310 
0311 . . CALL 
0312 
0313 
0314 
0315 


ORG #2000 


..I1AGNITUDE APPROXIMATE 


..GET R(MP) TO BASE ADDRESS 
LDI A.1(BASE); PHI MP 
LDI A.O(BASE); PLO MP 


..LOAD MAXIMUM SHIFT VALUE INTO R(ZAP2) 
..THAT IS: 6 (TO LEAVE HI-BIT FREE) 
LDI #00; PHI ZAP2 
LDI #06; PLO ZAP2 


..CALL DATA SCALE TO SCALE FIFO 
LDI A.1(DTASCL); PHI ZAP 
LDI A.O(DTASCL); PLO ZAP 
SEP ZAP . . ZAP .. DATA SCALE 
,flC4C4C4 


..INITILIZE FOR BOUNDARY SET 
..GET INPUT POINTER, R(MA), TO BASE ADDRESS 
LDI A.O(BASE); PLO ZAP1 
LDA ZAP 1 ; PHI MA 
LDA ZAP1; PLO MA 


..GET R(MP) TO FFT LENGTH 
LDI A.1(FFTLN); PHI MP 
LDI A.O(FFTLN); PLO MP 


BOUNDARY SET FOR BDRYOK & FREELN 
LDI A.1(BDRYST); PHI ZAP 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP .. BOUNDARY 


SET 
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2033 
2033 
2033 
2033 
2036 
2039 
2039 
2039 
2039 , 
2039 9DBF8DAF; 
203D 
203D 
203D 
203E 
2042 
2042 
2042 
2042 
2044 
2049 
204E 
204E 
204E 
204E 1D; 
204F 
204F 
204F F856AO; 
2052 DO; 
2053 
2053 
2053 
2054 
2058 
2058 
2058 ; 
2058 76BA; 
205A ODAA; 
205C ; 
205C ; 
205C ; 
205C C02069; 
205F 
205F 
205F 
205F 
2061 
2065 
2069 
2069 
2069 


, 
F820BE; 
F8DBAE; 


, 
4D; 
FECB204E; 


, 
76AA; 
ODFD005D2D; 
8A7D005DlD; 


, 
4D; 
FEC3205F; 


, 
76BA; 
ODFDOOAA; 
9A7DOOBA; 


...................................................* 
..SET UP FOR MAGNITUDE APPROXIMATE 
..GET R(MQ) TO FACTOR 
LDI A.1(FACTOR); PHI MQ 
LDI A.O(FACTOR); PLO MQ 


0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 . .ELSE 
0333 
0334 
0335 
0336 
0337 UPTOIN: 
0338 ..GET TO I(N) 
0339 INC MA 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 ..THEN GO TO COMPARE R(N) & I(N) 
0356 LBR CMPRRI 
0357 
0358 ININV: 
0359 . .PUT 
0360 
0361 
0362 
0363 
0364 
0365 


NEXTMN: . .NEXT M(N) APPROXIMATE 
..GET R(AC) TO R(N) ADDRESS 
GHI MA; PHI AC; GLO MA; PLO AC 


..CHECK FOR R(N) POSITIVE 
LDA MA 
SHL; LBNF UPTOIN ..IF POSITIVE, THEN 
. .GO UP TO I(N) 


INVERT R(N) AND STORE BACK 
SHRC; PLO ZAP2 
LDN MA; SDI HOO; STR MA; DEC MA 
GLO ZAP2; SDBI #00; STR MA; INC MA 


. .UP TO I(N) 


..CALL BOUNDARY CHECK TO CHECK I(N) FOR YPLWA+1 
LDI A.O(BDRYCK); PLO ZAP 
SEP ZAP . . ZAP .. BOUNDARY CHECK 


..LOAD ABS.I(N) INTO R(ZAP2) 
LDA MA 
SHL; LBDF ININV ..IF NEGATIVE, THEN 
..GOTO I(N) INVERT 


..ELSE LOAD STRAIGHT 
SHRC; PHI ZAP2 
LDN MA; PLO ZAP2 
..AND LEAVE R(MA) AT OLD 


I(N) .0 


..I(N) INVERT 
INVERTED I(N) INTO R(ZAP2) 
SHRC; PHI ZAP2 
LDN MA; SDI #00; PLO ZAP2 
GHI ZAP2; SDBI #00; PHI ZAP2 
..AGAIN LEAVE R(HA) AT OLD I(N).O 
..STILL FALL THROUGH TO COMPARE R(N) 


& I(N) 
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2069 ; 0366 
2069 ; 0367 
2069 ; 0368 
2069 EFlF; 0369 
206B 8AF52F; 0370 
206E 9A75; 0371 
2070 CB208F; 0372 
2073 0373 
2073 0374 
2073 0375 
2073 4FF6BB; 0376 
2076 OF76AB2F; 0377 
207A 9BF62D5D; 0378 
207E 8B761D5Dj 0379 
2082 j 0380 
2082 j 0381 
2082 EDj 0382 
2083 8AF52Dj 0383 
2086 9A751Dj 0384 
2089 CB20ADj 0385 
208C j 0386 
208C j 0387 
208C j 0388 
208C C020C3; 0389 
208F 0390 
208F 0391 
208F j 0392 
208F 9AF6BBj 0393 
2092 8A76ABj 0394 
2095 9BF6BBj 0395 
2098 8B76ABj 0396 
209B ; 0397 
209B ; 0398 
209B EFlFj 0399 
209D 8BF72F; 0400 
20AO 9B 77 ; 0401 
20A2 CB20ADj 0402 
20A5 0403 
20A5 0404 
20A5 0405 
20A5 9A5F1F; 0406 
20A8 8A5F; 0407 
20M C020C3j 0408 


ASP FFT Program 
Program Code 


.... ........ ........... ..... ..... ....... ...... ... ... 


CMPRRI: ..COMPARE R(N) 
..CHECK FOR ABS.R(N) =) ABS.I(N) 
SEX ACj INC AC 
GLO ZAP2j SDj DEC AC 
GHI ZAP2j SDB 
LBNF IGTR 


& I(N) 


..IF NOT TRUE, THEN 
..GOTO I(N) ) R(N) 


..IF TRUE GET [ABS.R(N)]/4 INTO OLD r(N) 
LDA AC; SHRj PHI ZAP3 
LDN AC; SHRC; PLO ZAP3j DEC AC 
GHI ZAP3; SHRj DEC tiA; STR MA 
GLO ZAP3j SHRCj INC MAj STR tiA 


..CHECK [ABS.R(N)]/4 =) ABS.I(N) 
SEX MA 
GLO ZAP2j SD; DEC MA 
GHI ZAP2j SDB; INC MA 
LBNF FCTXSM ..IF NOT TRUE, THEN 
..GOTO FACTOR TIMES SUM 


..IF TRUE GO TO END/DONE CHECK (G(N) IS R(N), OK) 
LBR NDDNCK 


IGTR: ..ABS.I(N) ) ABS.R(N) 
..GET [ABS.I(N)]/4 INTO R(ZAP3) 
GHI ZAP2; SHR; PHI ZAP3 
GLO ZAP2j SHRCj PLO ZAP3 
GHI ZAP3; SHR; PHI ZAP3 
GLO ZAP3j SHRCj PLO ZAP3 


..CHECK [ABS.I(N)]/4 =) ABS.R(N) 
SEX AC; INC AC 
GLO ZAP3; SM; DEC AC 
GHI ZAP 3; 5MB 
LBNF FCTXSM ..IF NOT TRUE, THEN 
..GOTO FACTOR TIMES SUM 


..IF TRUE STORE ABS.I(N) INTO M(R(AC)) 
GHI ZAP2; STR AC; INC AC 
GLO ZAP2; STR AC 
LBR NDDNCK ..THEN GOTO END/DONE CHECK 
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20AD 0409 
20AD 0410 
20AD . 0411 
, 
20AD EFlF; 0412 
20AF 8AF45D; 0413 
20B2 2F2D; 0414 
20B4 9A745D; 0415 
20B7 0416 
20B7 0417 
20B7 0418 
20B7 F828BO; 0419 
20BA F804AO; 0420 
20BD DO; 0421 
20BE 0422 
20BE ; 0423 
20BE 2D; 0424 
20BF 0425 
20BF 0426 
20BF 2E2E; 0427 
20C1 C4; 0428 
20C2 0429 
20C2 0430 
20C2 DO; 0431 
20C3 0432 
20C3 0433 
20C3 0434 
20C3 0435 
20C3 0436 
20C3 0437 
20C3 2DF800; 0438 
20C6 5DlD ; 0439 
20C8 5D1D; 0440 
20CA ; 0441 
20CA ; 0442 
20CA ; 0443 
20CA ; 0444 
20CA F82BBO; 0445 
20CD F856AO; 0446 
20DO DO; 0447 
20D1 0448 
20D1 ; 0449 
2001 CA2039; 0450 
2004 0451 
2004 0452 
2004 ; 0453 
20D4 05; 0454 
2005 C4C4C4C4C4C4; 0455 
20DB ; 0456 


..-------------------------------------------------- , 


FCTXSM: . .FACTOR TIMES 
..GET SUM INTO OLD I(N).O 
SEX AC; INC AC 
GLO ZAP2; ADD; STR MA 
DEC AC; OEC MA 
GHI ZAP2; ADC; STR MA 


SUM 


..THEN CALL SINE MULTIPLY 
. .WITH SUM @ tf(R(l1A)) & FACTOR @ M(R(MQ)) 
LDI A.1(smIULT); PHI ZAP 
LDI A.O(SNMULT); PLO ZAP 
SEP ZAP ..ZAP · SINE MULTIPLY 


..AT HALFWAY, RETURN R(MA) TO OLD I(N).O 
OEC MA 


..RETURN R(MQ) TO FACTOR 
OEC MQ; OEC MQ 
NOP ..AND WASTE TIME 


..THEN RETURN TO STORE RESULT @ M(R(AC)) 
SEP ZAP ..ZAP · MIDDLE OF SINE MULT 


..THEN FALL THROUGH TO END/DONE CHECK 


NDDNCK: . . END /DONE CHECK 
..ZERO OLD I(N), FOR FUTURE SCALINGS 
OEC MA; LDI 1100 
STR MA; INC MA 
STR MA; INC MA 
..AND LEAVE R(MA) AT NEXT (SUPPOSED) R(N) 


..THEN CALL BOUNDARY CHECK 
..TO TEST FOR YSLWA+1 AND DONE 
LDr A.1(BDRYCK); PHI ZAP 
LDI A.O(BORYCK); PLO ZAP 
SEP ZAP ..ZAP 2 BOUNDARY CHECK 


..ON RETURN CHECK 0 FOR DONE FLAG 
LBNZ NEXTMN ..IF NOT DONE, THEN 
. .GOTO NEXT M(N) 


. .ELSE DONE WITH ì-1AG APPROXIMATE, RETURN TO HAIN 
EXIT 
.!1C4C4C4C4C4C4 
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20DB 
20DB 
20DB 6209; 
2 ODD 
20DD 
20DD 
20DD 
2 ODD 


0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 


ASP FFT Program 
Program Code 


..****************************<<********************* 


FACTOR: 


. . FACTOR 
..DECIMAL 0.7659 
..AVG [ l/(SIN + COS) ] FOR 
..ARCTAN(1/4) & ARCTAN(l/l) 
..#############8#################################### 
..END OF MAGAPX.SR 


,86209 
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A.2.2.2 SMTGMX (Smooth and Tag Maximum) 


0000 0001 
0000 0002 ..SMTGMX.SR 25 MAY 80 10:55 AM 
0000 0003 
0000 0241 
0000 0242 ..#################################8################ 
0000 0243 ..SMTGMX.SR SMOOTH & TAG MAXIMUM 
0000 0244 
0000 0245 ..THIS ROUTlNUE DOES A RUNNING 8-POINT AVERAGE 
0000 0246 ..TO SMOOTH THE FREQUENCY COMPONENTS 
0000 0247 ..AND TAGS THE GREATEST VALUE (AFTER SMOOTHING) 
0000 0248 
0000 0249 ..IT ASSUMES THAT THE MAGNITUDE VALUES ARE IN EVERY 
0000 0250 ..OTHER LOCATION IN THE FIFO STARTING WITH THE BASE 
0000 0251 ..ADDRESS (AND #0000 IN BETWEEN) 
0000 0252 
0000 0253 ..IT RETURNS WITH THE SMOOTHED VALUES IN THOSE 
0000 0254 ..LOCATIONS. AND: 
0000 0255 THE ADDRESS OF THE MAXIMUM IN MXADDR 
0000 0256 THE FREQUENCY INDEX OF THE MAXIMUM IN FMAX 
0000 0257 & THE VALUE OF THE MAXIMUM IN MXV ALU 
0000 0258 ..8################################################# 
0000 0259 
0000 0260 
0000 0261 ..EXTERNAL ROUTINUES 
0000 ; 0262 
0000 0263 SUBRT2=1I2 B50 ..SUBROUTINUE BLOCK #2 
0000 0264 BDRYST=SUBRT2+4 . . BOUNDARY SET 
0000 0265 DTASCL=#2960 . .DATA SCALE 
0000 0266 
0000 0267 ..INTERNAL VARIABLES (FROM NOW ON) 
0000 0268 
0000 0269 MXADDR=CSVLU+2 . . ADDRESS OF MAXIMUM 
0000 0270 FMAX=MXADDR+2 ..FREQUENCY INDEX OF MAX 
0000 0271 MXVALU=FMAX+2 . . MAXIMUM VALUE (INTEGER) 
0000 0272 MXEXP=MXVALU+2 ..EXPONENT (SHIFT) VALUE 
0000 0273 . .OF MAX 
0000 0274 
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0000 0275 
0000 0276 
0000 0277 
2100 0278 
2100 0279 
2100 0280 
2100 0281 
2100 0282 
2100 ; 0283 
2100 F830B9; 0284 
2103 F8D8A9; 0285 
2106 ; 0286 
2106 ; 0287 
2106 F8DOA8; 0288 
2109 0289 
2109 0290 
2109 F8BOAC; 0291 
210C 0292 
2l0C 0293 
2l0C 0294 
2l0C F800BA; 0295 
210F F80 7 AA; 0296 
2112 0297 
2112 0298 
2112 F829BO; 0299 
2115 F860AO; 0300 
2118 DO; 0301 
2119 C4C4C4; 0302 
211C 0303 
211C 0304 
211C 0305 
211C 0306 
211C F8D8AC; 0307 
211F 4CBD; 0308 
2121 4CAD; 0309 
2123 0310 
2123 0311 
2123 F8BOAC; 0312 
2126 0313 
2126 0314 
2126 F830B9; 0315 
2129 F8DOA9; 0316 
212C 0317 
212C 0318 
212C F82BBO; 0319 
212F F854AO; 0320 
2132 DO; 0321 
2133 0322 


ASP FFT Program 
Program Code 


..BEGIN HERE 


ORG U2100 


SMTGMX: 


..SMOOTH & TAG MAXIMUM 


..************************************************** 
..SCALE VALUES TO MAX U7FFF 
..GET R(MP) TO BASE ADDRESS 
LDI A.1(BASE); PHI MP 
LDI A.O(BASE); PLO MP 
..GET R(FRP) TO FFT-LENGTH 
LDI A.O(FFTLN); PLO FRP 


..GET R(ZAP1) TO YSLWA+1 
LDI A.0(YSTBL+2); PLO ZAP1 


..LOAD MAXIMUM SHIFT VALUE INTO R(ZAP2) 
..THAT IS: 7 (SHIFT TO MAXIMUM) 
LDI #00; PHI ZAP2 
LDI #07; PLO ZAP2 


. . CALL DATA SCALE TO SCALE FIFO 
LDI A.1(DTASCL); PHI ZAP 
LDI A.O(DTASCL); PLO ZAP 
SEP ZAP ..ZAP ,., DATA SCALE 
,I1C4C4C4 


..************************************************** 
. . DO BOUNDARY SET FOR BOUNDARY OK FLAG & FREE LENGTH 
..GET INPUT POINTER, R(MA), TO BASE ADDRESS 
LDI A.O(BASE); PLO ZAP1 
LDA ZAP1; PHI MA 
LDA ZAP1; PLO MA 


..GET R(ZAP1) TO YSLWA+1 POI
TER 
LDI A.0(YSTBL+2); PLO ZAP1 


..GET R(MP) TO FFT LENGTH 
LDI A.1(FFTLN); PHI MP 
LDI A.O(FFTLN); PLO MP 


..CALL BOUNDARY SET FOR BDRYOK & FREELN 
LDI A.1(BDRYST); PHI ZAP 
LDI A.O(BDRYST); PLO ZAP 
SEP ZAP ..ZAP = BOUNDARY SET 
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2133 0323 
2133 0324 
2133 F822BO; 0325 
2136 F806AO; 0326 
2139 0327 
2139 0328 
2139 0329 
2139 9DB9BB; 0330 
213C 8DA9AB; 0331 
213F 0332 
213F 0333 
213F 0334 
213F F808A8; 0335 
2142 0336 
2142 0337 
2142 F800AEBFAF; 0338 
2147 0339 
2147 0340 
2147 0341 
2147 EDlD; 0342 
2149 8FF4AF2D; 0343 
214D 9F74BF; 0344 
2150 CB21541E; 0345 
2154 0346 
2154 ; 0347 
2154 0348 
2154 lD1D1D1D; 0349 
2158 0350 
2158 0351 
2158 2888; 0352 
215A C22161; 0353 
215D ; 0354 
215D ; 0355 
215D ; 0356 
215D DO; 0357 
215E 0358 
215E 0359 
215E C02147; 0360 
2161 ; 0361 


..************************************************** 
..SET SUBROUTINUE POINTER TO SMOOTH BOUNDARY CHECK 
LDI A.1(SMBDCK); PHI ZAP 
LDI A.O(SMBDCK); PLO ZAP 


..SET OUTPUT POINTER R(MP) AND MAX POINTER R(ZAP3) 
..TO INPUT POINTER R(MA) 
GHI MA; PHI MP; PHI ZAP3 
GLO MA; PLO MP; PLO ZAP3 


..ADD 1ST EIGHT VALUES 
..SET HEAD COUNTER TO 8 
LDI #08; PLO FRP 


..SET R(MQ.O,AC) 24-BIT ACCUMULATOR TO #000000 
LDI #00; PLO MQ; PHI AC; PLO AC 


ADDNXT: . .ADD NEXT FREQUENCY VALUE 
..ADD FROM INPUT POINTER TO ACCUMULATOR 
SEX MA; INC MA 
GLO AC; ADD; PLO AC; DEC MA 
GHI AC; ADC; PHI AC 
LBNF *+4; INC MQ ..IF OVERFLOW, THEN 
..INCREMENT HIGH BYTE 


..GET TO NEXT FREQUENCY MAGNITUDE 
INC MA; INC MA; INC MA; INC MA 


..DECREMENT HEAD COUNT, CHECK FOR DONE 
DEC FRP; GLO FRP 
LBZ SAVAVG ..IF DONE, THEN 
..GOTO SAVE AVERAGE 


..ELSE CHECK INPUT POINTER FOR YSLWA+1 OR +3 
SEP ZAP 


..THEN GO BACK FOR NEXT ADD 
LBR ADDNXT 



-78 



2161 
2161 
2161 
2161 
2161 
2161 
2161 , 
2161 8EF6AC; 
2164 9F76BA; 
2167 8F76AA; 
216A ; 
216A 8CF6AC; 
216D 9A76BA; 
2170 8A76AA; 
2173 ; 
2173 9AF6BAj 
2176 8A76AA; 
2179 ; 
2179 ; 
2179 E919; 
217B 8FF7AF29; 
217F 9F77BF; 
2182 C321862E; 
2186 
2186 
2186 
2186 9A5919; 
2189 8A5919; 
218C 
218C 
218C , 
218C EB1B; 
218E 8AF72B; 
2191 9A77; 
2193 CB219E; 
2196 
2196 
2196 ; 
2196 89FF02AB; 
219A 997FOOBB; 
219E 
219E 
219E , 
219E 1919; 
21AO 
21AO ; 
21AO DO; 
21A1 
21A1 
21A1 C221B8; 
21A4 
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0362 ..-------------------------------------------------- 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 GOZOUT: ..GOOSE OUTPUT UP BY 2 
0404 ..GET OUTPUT POINTER TO NEXT MAGNITUDE LOCATION 
0405 INC MP; INC MP 
0406 
0407 ..CHECK INPUT AND OUTPUT POINTER FOR YSLWA+1 & +3 
0408 SEP ZAP 
0409 
0410 
0411 
0412 


..MAIN BODY OF SMOOTH 
..SAVE AVG, BOUNDARY CHECK, SUBTRACT FROM OUTPUT, 
..STORE SUM, TEST FOR MAX & ADD FROM INPUT 


SAVAVG: . .SAVE AVERAGE 
. . AVERAGE SUM OF 8, AND SAVE (EVENTUALLY) IN R(ZAP2) 
GLO HQj SHR; PLO ZAP1 
GHI AC; SHRC; PHI ZAP2 
GLO AC; SHRC; PLO ZAP2 ..DIVIDE ONCE 


GLO ZAP1; SHR; PLO ZAP1 
GHI ZAP2; SHRCj PHI ZAP2 
GLO ZAP2; SHRC; PLO ZAP2 


. .DIVIDE TWICE 


GHI ZAP2; SHR; PHI ZAP2 
GLO ZAP2; SHRC; PLO ZAP2 


. .DIVIDE THRICE 


..SUBTRACT OLD VALUE FROM 24-BIT ACCUMULATOR 
SEX MP; INC MP 
GLO AC; SMj PLO AC; DEC MP 
GHI AC; 5MB; PHI AC 
LBDF *+4; DEC MQ ..IF BORROWED, THEN 
..DECREMENT HIGH BYTE 


..STORE SAVED AVERAGE THERE 
GHI ZAP2; STR MP; INC MP 
GLO ZAP2; STR MP; INC MP 


..TEST TO ASSURE 
..OLD MAX @ M(R(ZAP3)) > NEW SMOOTHED @ 
SEX ZAP3; INC ZAP3 
GLO ZAP2; SM; DEC ZAP3 
GHI ZAP2; 5MB 
LBNF GOZOUT 


R(ZAP2) 


..IF OLD> NEW, THEN 
..GOTO GOOSE OUTPUT UP BY 4 


..ELSE NEW => OLD, SAVE NEW ADDRESS AS MAX 
GLO MP; SMI #02; PLO ZAP3 
GHI MP; 5MB I #00; PHI ZAP3 


..ON RETURN CHECK D FOR DONE FLAG 
LBZ SHMXDN . . IF DONE, THEN 
..GOTO SMOOTH/MAX DONE 
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21A4 0413 
21A4 0414 
21A4 EDlD ; 0415 
21A6 8FF4AF2D; 0416 
21AA 9F74BF; 0417 
21AD CB21BllE; 0418 
21B1 0419 
21Bl 0420 
21B1 ; 0421 
21B1 1D1D1DID; 0422 
21B5 0423 
21B5 ; 0424 
21B5 C02161; 0425 
21B8 0426 
21B8 0427 
21B8 0428 
21B8 0429 
21B8 0430 
21B8 0431 
21B8 0432 
21B8 ; 0433 
21B8 F8EOA8; 0434 
21BB 9B5818; 0435 
21BE 8B5818; 0436 
21Cl 0437 
21C1 0438 
21C1 0439 
21C1 F8D9AC; 0440 
21C4 8BF7AA2C; 0441 
21C8 9B77BA; 0442 
21CB C32lD6; 0443 
21CE 0444 
21CE ; 0445 
21CE ; 0446 
21CE ; 0447 
21CE 8AFCOOAA; 0448 
21D2 9A7C04BA; 0449 
21D6 0450 
21D6 0451 
21D6 0452 
21D6 ; 0453 
21D6 9AF6BA; 0454 
21D9 8A76AA; 0455 
21DC 9AF6BA; 0456 
21DF 8A76; 0457 
21E1 0458 
21E1 0459 
21E1 FC03AA; 0460 
21E4 9A7C005818; 0461 
21E9 8A5818; 0462 
21EC 0463 


..NOW ADD NEW VALUE FROM INPUT POI
TER 
SEX MA; INC MA 
GLO AC; ADD; PLO AC; DEC MA 
GHI AC; ADC; PHI AC 
LBNF *+4; INC MQ ..IF OVERFLOW. THEN 
..INCREMENT HIGH BYTE 


..GET TO NEXT FREQUENCY 
1AGNITUDE 
INC MA; INC MA; INC MA; INC MA 


..THEN GOTO SAVE AVERAGE OF LAST 8 
LBR SAVAVG 


..-------------------------------------------------- 


SMMXDN: . .SMOOTH/MAXUlliM DONE 
..ALL VALUES SMOOTHED AND IN FIFO 
..(EVERY 4TH LOCATION. FOR 2 BYTES) 
..MAXIMUM VALUE AT M(R(ZAP3)) 


..STORE ADDRESS OF MAXIMUM INTO MEMORY 
LDI A.O(MXADDR); PLO FRP 
GHI ZAP3; STR FRP; INC FRP 
GLO ZAP3; STR FRP; INC FRP 


..COMPUTE FREQUENCY INDEX OF MAXIMUM VALUE 
..SHOULD BE (MAX.ADDR - BASE.ADDR). IF POSITIVE 
LDI A.0(BASE+1); PLO ZAPl 
GLO ZAP3; SM; PLO ZAP2; DEC ZAP1 
GHI ZAP3; 5MB; PHI ZAP2 
LBDF CMPFMX ..IF POSITIVE. THEN 
. .GOTO COMPUTE n1AX 


..ELSE NEGATIVE. 
..INDEX m (YSLWA+1 - YSFWA) - DIFFERENCE 
GLO ZAP2; ADI #00; PLO ZAP2 
GHI ZAP2; ADCI #04; PHI ZAP2 


CMPFMX: ..COMPUTE FMAX 
..FMAX 2 (INDEX/4) + 3.0. + 0.5 UNDERSTOOD 
..DIVIDE BY 4 
GHI ZAP2; SHR; PHI ZAP2 
GLO ZAP2; SHRC; PLO ZAP2 
GHI ZAP2; SHR; PHI ZAP2 
GLO ZAP2; SHRC 


..ADD 3 AND STORE AS FMAX 
ADI #03; PLO ZAP2 
GHI ZAP2; ADCI #00; STR FRP; INC FRP 
GLO ZAP2; STR FRP; INC FRP 
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21EC 0464 
21EC 4B5818; 0465 
21EF OB5818; 0466 
2lF2 0467 
2lF2 0468 
21F2 0469 
2lF2 0470 
21F2 F8DBAC; 0471 
21F5 OCFF01AA; 0472 
21F9 2COC; 0473 
2lFB 7F005818; 0474 
21FF 8AS8; 0475 
2201 0476 
2201 0477 
2201 D5; 0478 
2202 C4C4C4; 0479 
2205 0480 
2205 0481 
2205 0482 
2205 0483 
2205 0484 
2205 0485 
2205 0486 
2205 0487 
2205 0488 
2205 0489 
2205 0490 
2205 0491 
2205 0492 
2205 0493 
2205 0494 
2205 D3; 0495 
2206 0496 
2206 0497 
2206 0498 
2206 0499 
2206 0500 
2206 0501 
2206 9DFF3E; 0502 
2209 CB220F; 0503 
220C 0504 
220C 0505 
220C 0506 
220C F83ABD; 0507 
220F 0508 
220F 0509 
220F 99FF3E; 0510 
2212 CB2218; 0511 
2215 0512 
2215 0513 


ASP FFT Program 
Program Code 


..STORE VALUE AT MAXIMUM INTO MEMORY 
LDA ZAP3; STR FRP; INC FRP 
LDN ZAP3; STR FRP; INC FRP 


..STORE SHIFT VALUE OF MAXIMUM 
..LOAD TOTAL SHIFT, SUBTRACT 1 (INHERENT IN ORDER 
..ROUTINUE), THEN STORE TO 

IMUM'S EXPONENT 
LDI A.0(TOTLSH+1); PLO ZAP1 
LDN ZAP1; SMI n01; PLO ZAP2 
DEC ZAP 1 ; LDN ZAP1 
5MBI #00; STR FRP; INC FRP 
GLO ZAP2; STR FRP 


..THEN RETURN TO MAIN 
EXIT 
,IIC4C4C4 


..************************************************** 


. . 5MBDCK. SR 


SMOOTH BOUNDARY CHECK 


..CALL THIS ROUTINUE TO CHECK INPUT OR OUTPUT PTR 
FOR YSLWA+1 OR YSLWA+3 CONDITION 
..THEN CHECK FOR DONE 
..R(MA) IS THE INPUT PTR, R(MP) IS THE OUTPUT PTR 
..R(ZAP1) & R(MQ.1) ARE USED IN THIS ROUTINUE 
..************************************************** 


. . RETURN PORT ION 
EXSBCK: 


..EXIT SMOOTH BOUNDARY CHECK 
. .RESET TO PC 


SEP PC 


. . ENTER HERE FOR BOUNDARY CHECK 
5MBDCK: ..SMOOTHED BOUNDARY CHECK 


..COMPARE INPUT POINTER FOR PAST END 
GHI MA; 8MI A.1(YSLWA+l) 
LBNF *+06 ..IF WITHIN BOUNDARY, THEN 
..SKIP TO OUTPUT PTR CHECK 


..ELSE OFF END, RESET TO START 
LDI A.l(YSFWA); PHI MA 


..COMPARE OUTPUT POINTER FOR PAST END 
GHI MP; SMI A.1(YSLWA+1) 
LBNF *+06 ..IF WITHIN BOUNDARY, THEN 
..SKIP TO DONE CHECK 
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2215 
2215 F83AB9; 
2218 
2218 
2218 
2218 ; 
2218 F8CBAC; 
221B EC; 
221C F804F573BE; 
2221 F8007573; 
2225 
2225 
2225 
2225 
2225 CA2205; 
2228 
2228 
2228 
2228 
2228 9EC02205; 
222C 
222C 
222C 
222C 


0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 


..ELSE OFF END, RESET TO START 
LDI A.l(YSFWA); PHI MP 


-------------------------------------------------- 


CKMVDN: ..CHECK MOVE DONE 
..COUNT DOWN MOVE COUNT BY 4 
LDI A.O(MOVECT+l); PLO ZAPl 
SEX ZAPl 
LDI 004; SD; STXD; PHI MQ 
LDI #00; SDB; STXD 


..CHECK FOR DONE WITH MOVE 
..CHECK HIGH BYTE, IF NOT #00 
..RETURN WITH NOT DONE FLAG (NOT #00) 
LBNZ EXSBCK 


..CHECK LOW BYTE AND RETURN WITH FLAG EITHER 
..NOT #00, NOT DONE 
..OR IS 000, IS DONE 
GHI MQ; LBR EXSBCK 


..o#o#oo###ouoouo#ou###ooouuuooouo#o#ouou#o#ouoo#### 
. .END OF SMOOTH & TAG MAXIMUM 
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A.2.2.3 CICFMAX (Check FO Maximum) 


0000 
0000 
0000 


0001 
0002 . .CKFMAX.SR 
0003 


25 MAY 80 


12:35 PM 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 


..OOO#QOOOOO#O#OOOO#O#OO##OOO#O#OOO####OO##O####O#U# 
..CKFMAX.SR CHECK FREQUENCY OF MAXIMUM 


..FIRST,THIS ROUTINUE MOVES TO THE OUTPUT LIST 
THE LENGTH OF THE FFT (64, 128, 256 OR 512) 
..THEN, IT CHECKS THE FREQUENCY INDEX OF THE MAXIMUM 
VALUE, FMAX (POSSIBLY 3 TO (FFTLN/2)-8) 
FOR BOUNDARY VALIDITY (NOT AT HEAD OR TAIL) 
IF OK, THEN RETURN TO FFTMN WITH D = 000 
ELSE, STORE FMAX AS FO 
ZERO OTHER OUTPUT LOCATIONS 
AND RETURN WITH D.NE.OOO 


..THE ROUTINUE ALSO CORRECTS THE VALUE AT FMAX 
..(MAXIMUM ENERGY VALUE) FOR: 
1. INSTRUMENT RESPONCE (PER FREQUENCY INDEX) 
2. SPECTRA LENGTH (DELETED HERE, 
NOW DONE IN BOSS - 5/25/80) 
3. CHANNEL GAIN 
..####0########0#######00#####0####00##0#####000#### 


..EXTERNAL ROUTINUES 


SNMULT...02804 


..SINE MULTIPLY 


..INTERNAL VARIABLES (FROM NOW ON) 


GAIN=//3062 


. . AMPLIFIER GAIN 


MXADDR=CSVLU+2 
FMAX=-MXADDR+2 
r1XVALU=-FMAX+2 
MXEXP=-,1XVALU+2 


..ADDRESS OF MAXIMUM 
..FREQUENCY INDEX OF t1AX 
..

I
UM VALUE (INTEGER) 
..EXPONENT (SHIFT) VALUE 
. .OF MAX 
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0000 0278 
0000 0279 
0000 0280 
0000 0281 
0000 0282 
0000 0283 
0000 0284 
0000 0285 
0000 0286 
0000 0287 
0000 0288 
0000 0289 
0000 0290 
0000 0291 
2250 0292 
2250 0293 
2250 0294 
2250 0295 
2250 0296 
2250 F8DOA8; 0297 
2253 F8E8AC; 0298 
2256 48F6BA; 0299 
2259 0876AA; 0300 
225C 9AF6; 0301 
225E BA5C1C; 0302 
2261 8A76; 0303 
2263 AA5C1C; 0304 
2266 0305 
2266 0306 
2266 . 0307 
, 
2266 F823B9; 0308 
2269 F8B3A9; 0309 
226C E9; 0310 
226D 0311 
2260 0312 
226D 0313 
226D 8AF729; 0314 
2270 9A7729; 0315 
2273 C32281; 0316 
2276 0317 
2276 0318 
2276 0319 
2276 89FF06A9; 0320 
227A 997FOOB9; 0321 
227E 0322 
227E 0323 
227E C0226D; 0324 
2281 0325 


LNFFT"MXEXP+2 
FO"LNFFT+2 
GMAINT"F0+2 
GMAFRC"GMAINT+2 
MXNINT"GMAFRC+2 
MXNEXP"MXN I NT+2 


. .LENGTH OF FFT 
..CORNER FREQUENCY 
. .GAMMA INTEGER 
. . GAMMA FRACTION 
..MAXIMUM ENERGY INTEGER 
..MAXIMUM ENERGY EXPONENT 
..(CORRECTED MAX VALUE, 
..THEN LONG PERIOD LEVEL) 


INSFIX..1J2EOO 


..INSTRUMENT CORRECTION TBL 


. . BEGIN HERE 


ORG 112250 


..************************************************** 
CKFMAX: . . CHECK FREQUENCY OF MAXIMUM 
..FIRST PASS LENGTH OF FFT 
..(DIVIDE BY 4 TO GET NUMBER OF SPECTRA COMPONENTS) 
LOI A.O(FFTLN); PLO FRP 
LDI A.O(LNFFT); PLO ZAPl 
LDA FRP; SHR; PHI ZAP2 
LDN FRP; SHRC; PLO ZAP2 
GHI ZAP2; SHR 
PHI ZAP2; STR ZAP1; INC ZAP1 
GLO ZAP2; SHRC 
PLO ZAP2; STR ZAP1; INC ZAPl 


..NOW GET R(MP) TO CORRECT LENGTH'S BOUNDARY 
..START WITH ASSUMED LENGTH" 256 
LDI A.l(BD256+7); PHI MP 
LDI A.0(BD256+7); PLO MP 
SEX MP 


MBLNTH: ..MAYBE LENGTH 
..TEST FOR LNFFT IN R(ZAP2) ..> LENGTH @ M(R(MP)) 
GLO ZAP2; SU; DEC MP 
GHI ZAP2; 5MB; DEC MP 
LBDF ENGCRT ..IF LNFFT ..> LENGTH, THEN 
..GOTO ENERGY CORRECTION 


..ELSE GET TO NEXT LENGTH 
GLO MP; SMI #06; PLO MP 
GHI MP; 5MBI #00; PHI MP 


. .AND RETEST 
LBR MBLNTH 


..GOTO MAYBE LENGTH 
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2281 0326 
2281 0327 
2281 0328 
2281 ; 0329 
2281 F8E2A8; 0330 
2284 48BE; 0331 
2286 08AE; 0332 
2288 ; 0333 
2288 ; 0334 
2288 09AB29; 0335 
228B 0336 
228B 0337 
228B . 0338 
. 
228B F823BO; 0339 
228E F852AO; 0340 
2291 DO; 0341 
2292 0342 
2292 ; 0343 
2292 F830BD; 0344 
2295 F8E4AD; 0345 
2298 0346 
2298 0347 
2298 ; 0348 
2298 F828BO; 0349 
229B F804AO; 0350 
229E DO; 0351 
229F 0352 
229F 0353 
229F 0354 
229F F830BFBD; 0355 
22A3 F8FOAFAD; 0356 
22A7 0357 
22A7 ; 0358 
22A7 DO; 0359 
22A8 0360 
22A8 0361 
22A8 0362 
22A8 0363 
22A8 0364 
22A8 0365 
22A8 0366 
22A8 0367 
22A8 0368 
22A8 ; 0369 
22A8 F823BE; 0370 
22AB F8B8AE; 0371 
22AE ; 0372 


ASP FFT Program 
Program Code 


..-------------------------------------------------- 


ENGCRT: ..ENERGY CORRECTION 
..FIRST CORRECT FMAX VALUE FOR INSTRUMENT RESPONCE 
..GET FMAX INDEX VALUE INTO R(MQ) 
LDI A.O(FMAX); PLO FRP 
LDA FRP; PHI MQ 
LDN FRP; PLO MQ 


..GET INSTRUMENT CORRECTION SKIP VALUE INTO R(ZAP3) 
LDN MP; PLO ZAP3; DEC MP 


..CALL LENGTH FIX SUBROUTINUE TO GET 
..CORRECT FIX TABLE VALUE (FMAX') 
LDI A.1(LNFIX); PHI ZAP 
LDI A.O(LNFIX); PLO ZAP 
SEP ZAP ..ZAP = LENGTH FIX SUBR. 


..GET R(MA) TO FMAX VALUE LOCATION 
LDI A.1(MXVALU); PHI MA 
LDI A.O(MXVALU); PLO MA 


..CALL SINE MULTIPLY FOR PRODUCT OF 
..M(FMAX) * INSFIX(FMAX') 
LDI A.l(SNMULT); PHI ZAP 
LDI A.O(SNMULT); PLO ZAP 
SEP ZAP ..ZAP = SINE MULTIPLY 


..AT HALFWAY POINT 
..GET R(AC) & R(MA) TO MAX ENERGY INTEGER 
LDI A.1(MXNINT); PHI AC; PHI MA 
LDI A.O(MXNINT); PLO AC; PLO MA 


..THEN RETURN TO STORE RESULTS 
SEP ZAP 


..NOW YOU CORRECT THIS RESULT 
..TO NORMALIZE IT TO THE 1ST INDEX VALUE 
..(THE TABLE IS NORMALIZED TO THE 13TH INDEX VALUE 
..FOR DYNAMIC RANGE CONSIDERATIONS. 
..YOU NEED TO MULTIPLY BY INSFIX(13) / INSFIX(1). 
..SEE THE TABLE HEADER FOR FULL EXPLANATION.) 


..R(MA) IS AT MAX ENERGY INTEGER 
. .GET R(MQ) TO THE TABLE NOR/1ALIZE VALUE 
LDI A.1(FXNMFR); PHI 
Q 
LDI A.O(FXNMFR); PLO MQ 
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22AE j 0373 
22AE DOj 0374 
22AF 0375 
22AF 0376 
22AF 2F2Fj 0377 
22B1 0378 
22B1 0379 
22B1 F830BD j 0380 
22B4 F8E6ADj 0381 
22B7 0382 
22B7 0383 
22B7 DOj 0384 
22B8 j 0385 
22B8 j 0386 
22B8 4E5FlFj 0387 
22BB OE5Fj 0388 
22BD 0389 
22BD 0390 
22BD 0391 
22BD 0392 
22BD 0393 
22BD 0394 
22BD 0395 
22BD 0396 
22BD 0397 
22BD 4DBB4D; 0398 
22CO 0399 
22CO ; 0400 
22CO E9C4AB29; 0401 
22C4 9BC4C4BBj 0402 
22C8 0403 
22C8 0404 
22C8 EFj 0405 
22C9 8BF473j 0406 
22CC 9B745F; 0407 
22CF 0408 
22CF j 0409 
22CF F823BO; 0410 
22D2 F86FAO; 0411 
22D5 DO; 0412 
22D6 0413 


..MULTIPLY MXNINT BY INS FIX NORMALIZE FRACTION 
SEP ZAP ..ZAP = SINE MULTIPLY 


..AT HALFWAY GET R(AC) BACK TO MAX ENERGY INTEGER 
DEC AC; DEC AC 


..AND GET R(MA) TO MAXIMUM EXPONENT (FOR LATER) 
LDI A.1(MXEXP)j PHI MA 
LDI A.O(MXEXP)j PLO MA 


..RETURN TO STORE NORMALIZED RESULT 
SEP ZAP . . ZAP = MIDDLE OF SNMULT 


. .THEN STORE "NORMALIZE FIX" EXPONENT AT MXNEXP 
LDA MQ j STR AC j INC AC 
LDN MQj STR AC 


................................................... . 


..THIS SECTION WAS TO CORRECT FOR SPECTRA LENGTH 
..HOWEVER THE ALGORITHM IS WRONG - 
..CORRECT IS TO DIVIDE BY THE SAMPLE TIME. 
..THIS IS DONE IN THE BOSS. 
..MOST OF THE CODE REMAINS HOWEVER 5/25/80 


..LOAD EXPONENT (SHIFT) VALUE OF MAXIMUM @ M(R(MA)) 
LDA MAj PHI ZAP3j LDA MA 


..SUBTRACT LENGTH CORRECTION AT M(R(MP)) 
SEX MPj NOP; PLO ZAP3; DEC MP 
GHI ZAP3j NOP; NOPj PHI ZAP3 


..ADD THAT VALUE TO MAX ENERGY EXPONENT 
SEX AC 
GLO ZAP3j ADD; STXD 
GHI ZAP3j ADC; STR AC 


..THEN GO FOR FULL SCALE CHECK OF MAX ENERGY INT/EXP 
LDI A.1(FLSCCK)j PHI ZAP 
LDI 
.O(FLSCCK); PLO ZAP 
SEP ZAP ..ZAP = FULL SCALE CHECK 
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22D6 
22D6 
22D6 
22D6 
22D6 
22D6 
22D6 
22D6 
22D6 
22D6 ; 
22D6 F830BDBF; 
22DA F8FOADAF; 
22DE ; 
22DE ; 
22DE F823BE; 
22E1 F8B4AE; 
22E4 
22E4 ; 
22E4 F828BO; 
22E7 F804AO; 
22EA DO; 
22EB ; 
22EB ; 
22EB lDED; 
22ED 1EOEF473; 
22Fl 2EOE745D; 
22F5 ; 
22F5 ; 
22F5 DO; 
22F6 
22F6 
22F6 
22F6 
22F6 
22F6 
22F6 F862A8; 
22F9 48BB; 
22FB 08AB; 
22FD ; 
22FD ; 
22FD F800BFAF; 
2301 
2301 
2301 , 
2301 9BF6BB; 
2304 8B76AB; 
2307 CA230E; 
230A ; 
230A 9BC22312; 
230E ; 
230E ; 
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0414 .................................................... 
0415 ..NOW CORRECT FOR CHANNEL GAIN 
0416 ..MAX.ENERGY (- MAX.ENERGY!(G.PHONE GAIN * AMP GAIN) 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 ..THEN RETURN TO STORE MULTIPLICATION RESULT 
0442 SEP ZAP ..ZAP = MIDDLE OF SNMULT 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 ..LOAD R(AC) WITH POWER = 0 (2 * * 0 = 1) 
0454 LDI #00; PHI AC; PLO AC 
0455 
0456 TSTGN: . . TEST GAIN 
0457 ..DIVIDE WORKING GAIN BY 2, THEN TEST FOR HOOOO 
0458 GHI ZAP3; SHR; PHI ZAP3 
0459 GLO ZAP3; SHRC; PLO ZAP3 
0460 LBNZ INCPWR ..IF LOW 
OT qOO, THE
 
0461 ..GOTO INCREMENT POWER 
0462 GHI ZAP3; LBZ SBTRXP ..IF BOTH = #00, THE
 
0463 ..GOTO SUBTRACT EXP 
0464 


..FOR GEOPHONE GAIN 
..MAX.ENG.INT (- MAX.ENG.INT * (GPHPWR!G.PHONE GAIN) 
WHERE: GPHPWR = 2 * * G.PHONE EXP 
..MAX.ENERGY.EXP (- t
.ENERGY.EXP - G.PHONE EXP 


..GET R(MA) & R(AC) TO MAX.ENERGY.INT 
LDI A.1(MXNINT); PHI MA; PHI AC 
LDI A.O(MXNI
T); PLO MA; PLO AC 


..GET R(MQ) TO GEOPHONE GAIN FRACTION 
LDI A.1(GPHFRC); PHI MQ 
LDI A.O(GPHFRC); PLO MQ 


..CALL SINE MULTIPLY FOR PRODUCT 
LDI A.1(SNMULT); PHI ZAP 
LDI A.O(SNMULT); PLO ZAP 
SEP ZAP ..ZAP = SINE MULTIPLY 


..AT HALFWAY POINT ADD G.PHONE EXP 
INC MA; SEX MA 
INC MQ; LDN MQ; ADD; STXD 
DEC MQ; LDN MQ; ADC; STR MA 


..NOW CORRECT FOR AMP GAIN 
..AMP GAIN = 2 * * POWER 
..MAX.ENERGY.EXP (- 

.ENERGY.EXP - POWER 


..GET GAIN INTO R(MP) 
LDI A.O(GAIN); PLO 
LDA FRP; PHI ZAP3 
LDN FRP; PLO ZAP3 


FRP 
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230E 
230E ; 
230E lFC02301; 
2312 
2312 
2312 
2312 lDED; 
2314 8FF573; 
2317 9F755D; 
231A ; 
231A ; 
231A F823BO; 
231D F86FAO; 
2320 DO; 
2321 
2321 
2321 
2321 
2321 
2321 ; 
2321 F8E2A8; 
2324 48BB; 
2326 48AB; 
2328 
2328 
2328 
232B 
232E 
232E 
232E F8005C1C; 
2332 5ClC; 
2334 
2334 
2334 5C1C5C; 
2337 
2337 
2337 
2337 
2337 
2338 
233B 
233E 
233F 
2342 
2342 


, 
9B5C1C; 
8B5C1C; 


, 
E9; 
8BF529; 
9B7529; 
AF; 
CB234E; 


0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 ..SET UP OUTPUT VARIABLES FOR SENDING TO BOSS 
0482 ..(IN CASE OF ABORTION) 
0483 
0484 . .GET 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 ..ZERO GAMMA EXPONENT 
0498 STR ZAP1; INC ZAP1; STR ZAP1 
0499 
0500 -------------------------------------------------- 
0501 TSTBDR: ..TEST BOUNDARY 
0502 ..CHECK FMAX IN R(ZAP3) <= TAIL BOUNDARY @ M(R(MP)) 
0503 SEX MP 
0504 GLO ZAP3; SD; DEC MP 
0505 GHI ZAP3; SDB; DEC MP 
0506 PLO AC 
0507 LBNF EXFMCK 
0508 
0509 


INCPWR: . . INCREMENT POWER 
..(ELSE) INCREMENT POWER, THEN GOTO RETEST 
INC AC; LBR TSTGN 


SBTRXP: . .SUBTRACT EXPONENT 
..TAKE POWER AWAY FROM MAXIMUM ENERGY EXPONENT 
INC MA; SEX MA 
GLO AC; SD; STXD 
GHI AC; SDB; STR MA 


..THEN RETEST FULL SCALE CHECK FOR 11AX.INT!EXP 
LDI A.l(FLSCCK); PHI ZAP 
LDI A.O(FLSCCK); PLO ZAP 
SEP ZAP ..ZAP = FULL SCALE CHECK 


FMAX VALUE INTO R(ZAP3) 
LDI A.O(FMAX); PLO FRP 
LDA FRP; PHI ZAP3 
LDA FRP; PLO ZAP3 


..STORE FMAX AT FO 
GHI ZAP3; STR ZAP1; INC ZAP1 
GLO ZAP3; STR ZAP1; INC ZAP1 


..ZERO GAMMA INTEGER (MAYBE NEEDED FOR ABORT) 
LDI #00; STR ZAP1; INC ZAPl 
STR ZAP1; INC ZAP1 


..IF FMAX > TLBDRY, THEN 
. .GOTO EXIT WITH D.:om ./100 
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2342 
2342 8BF729; 
2345 9B77; 
2347 AF; 
2348 CB234E; 
234B 
234B 
234B 
234B 
234B F800AF; 
234E 
234E 
234E 
234E D5; 
234F C4C4C4; 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2352 
2355 
2358 
2358 
2358 
2358 8B; 
2359 C22366; 
235C 
235C 
235C 
235C 2B; 
235D 
235D 
235D 8EFEAE; 
2360 9E7EBE; 
2363 
2363 
2363 C02358; 
2366 


ASP FFT Program 
Program Code 


0510 ..ELSE 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 EXFMCK: 
0523 
0524 
0525 
0526 ..************************************************** 
0527 ..LNFIX.SR 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 LNFIX: . .LENGTH FIX SUBROUTINUE 
0539 ..DOUBLE INDEX ONCE (BECAUSE DOUBLE WORDS) 
0540 GLO MQ; SHL; PLO MQ 
0541 GHI MQ; SHLC; PHI MQ 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 ..ELSE DECREMENT SKIP COUNT 
0550 DEC ZAP3 
0551 
0552 
0553 
0554 
0555 
0556 ..THEN RECHECK FOR SKIP 2 #00 
0557 LBR MBMORE 
0558 


, 
8EFEAE; 
9E7EBE; 


CHECK FMAX =) HEAD 
GLO ZAP3; SM; DEC 
GHI ZAP3; 5MB 
PLO AC 
LBNF EXFMCK 


BOUNDARY 
MP 


. . IF FMAX ( HDBDRY, THEN 
..GOTO EXIT WITH D.NE.HOO 


. .ELSE, FMAX OK 
..RETURN WITH D.EQ.OOO 
LDI //00; PLO AC 


..EXIT FMAX CHECK 


EXIT 
,ilC4C4C4 


..LENGTH FIX SUBROUTINUE 


..THIS ROUTINUE GETS A POINTER TO THE CORRECT 
..LOCATION IN THE INSTRUMENT CORRECTION TABLE 
..IT EXPECTS THE INDEX POINTER TO BE IN R(MQ) 
..AND THE SKIP VALUE TO BE IN R(ZAP3.0) 
. .ON RETURN 
.. R(MQ) (- INSFIX + [R(MQ) * 2**(R(ZAP3.0)+1)] 
..************************************************** 


MBI10RE: 
..CHECK FOR SKIP = ilOO 
GLO ZAP3 
LBZ ADFXFW 


..MAYBE MORE SKIPS 


..IF 000, THEN 
..GOTO ADD FIX TABLE FWA 


..AND DOUBLE INDEX VALUE 
GLO MQ; SHL; PLO MQ 
GHI 
Q; SHLC; PHI 
Q 
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2366 0559 
2366 0560 
2366 8EFCOOAE; 0561 
236A 9E7C2EBE; 0562 
236E ; 0563 
236E ; 0564 
236E D3; 0565 
236F 0566 
236F 0567 
236F 0568 
236F 0569 
236F 0570 
236F 05H 
236F 0572 
236F 0573 
236F 0574 
236F 0575 
236F 0576 
236F 0577 
236F 0578 
236F ; 0579 
236F F830BF; 0580 
2372 F8FOAF; 0581 
2375 EF; 0582 
2376 0583 
2376 0584 
2376 0585 
2376 F840F2; 0586 
2379 CA2393 ; 0587 
237C 0588 
237C 0589 
237C 0590 
237C 4FBE; 0591 
237E OFFE73; 0592 
2381 9E7E5F; 0593 
2384 0594 
2384 0595 
2384 F8F3AF; 0596 
2387 OFFF0173; 0597 
238B OF7F0073; 0598 
238F 0599 
238F 0600 
238F 2F; 0601 
2390 C02376; 0602 
2393 0603 
2393 0604 
2393 0605 
2393 D3; 0606 
2394 0607 


ADFXFW: ..ADD FIX TABLE FWA 
..ADD FIX FWA TO MODIFIED INDEX VALUE 
GLO 
IQ; ADI A.O(INSFIX); PLO MQ 
GHI 

; ADCI A.1(INSFIX); PHI MQ 


..THEN RETURN TO CALLING PROGRAM 
SEP PC ..RESET TO PC 


..*************************************************
 
..FLSCCK.SR ..FULL SCALE CHECK 


..THIS ROUTINUE CHECKS THAT MAXIMUM ENERGY INTEGER 
..IS AT FULL SCALE AND ADJUSTS INTEGER & EXPONENT 
. . IF NECESSARY 
..IT HAS NO INPUT REQUIREMENTS 
..AND USES ONLY R(MQ) & R(AC) 
..*************************************************
 


FLSCCK: ..FULL SCALE CHECK 
..GET R(AC) TO MAXIMUM ENERGY INTEGER 
LOI A.1(MXNINT)j PHI AC 
LDI A.O(MXNINT); PLO AC 
SEX AC 


INTCHK: . . INTEGER CHECK 
..CHECK FOR MSB (NOT SIGN BIT) 
 1 
LDI 1140; AND 
LBNZ EXFSCK ..IF 
 1, THEN 
..GOTO EXIT FULL SCALE CHECK 


..ELSE LOAD, SHIFT UP ONCE, AND STORE 
LDA AC; PHI MQ 
LDN AC; SHL; STXD 
GHI MQ; SHLC; STR AC 


..ALSO SUBTRACT 1 FROM EXPONENT 
LDI A.0(MXNEXP+1); PLO AC 
LON AC; SMI 1101; STXD 
LDN AC; 5MBI 1100; STXD 


..GET BACK TO INTEGER, AND RECHECK 
OEC AC 
LBR INTCHK 


EXFSCK: ..EXIT FULL SCALE CHECK 
..RESET TO CALLING PROGRAM 
SEP PC 
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2394 ; 0608 ..************************************************** 
2394 ; 0609 . . TABLE OF BOUNDARIES & VALUES 
2394 ; 0610 
2394 0004; 0611 BD32 : ,110004 ..HEAD BOUNDARY (1ST OK) 
2396 OOOD; 0612 ,/lOOOD ..13 ..TAIL BOUNDARY (LAST OK) 
2398 06; 0613 ,/106 ..LENGTH CORRECTION EXPONENT 
2399 03; 0614 ,1103 ..CORRECTION TBL. SKIP VALUE 
239A 0000; 0615 ,110000 ..SPECTRA LENGTH (NORMALLY) 
239C ; 0616 
239C 0007; 0617 BD64: ,/10007 
239E 0021; 0618 ,110021 ..33 
23AO 07; 0619 ,007 
23Al 02; 0620 ,1102 
23A2 0040; 0621 ,/10040 
23A4 ; 0622 
23A4 OOOD; 0623 BD128: ,IIOOOD . .13 
23A6 0051; 0624 ,110051 . .81 
23A8 08; 0625 ,1108 
23A9 01; 0626 ,001 
23AA 0080; 0627 ,110080 
23AC ; 0628 
23AC 001A; 0629 BD256: ,IIOOIA . .26 
23AE 0099; 0630 ,110099 ..153 
23BO 09; 0631 ,1109 
23Bl 00; 0632 ,1100 
23B2 0100; 0633 ,110100 
2384 0634 
2384 0635 GPHFRC: ..GEOPHONE GAIN FRACTION 
2384 6F5C; 0636 ,I16F5C .435 = .870 * 2**(-1) 
23B6 0637 .... 28508/32768 * 2**(-1) 
23B6 0638 . .- ,II6F5C * 2** ( ,IIFFFF) 
23B6 0639 GPHEXP: ..GEOPHONE GAIN EXPONENT 
23B6 FFFF; 0640 ,IIFFFF 
23B8 0641 
23B8 0642 FXNMFR: ..FIXTBL NORMALIZE FRACTION 
23B8 45A2; 0643 ,045A2 3.40E-2 = .5440 * 2**(-4) 
23BA ; 0644 = 17826/32768 * 2**(-4) 
23BA ; 0645 = ,/l45A2 * 2**(,/lFFFC) 
23BA ; 0646 FXNMXP: ..FIXTBL NORMALIZE EXPONENT 
23BA FFFC; 0647 ,/lFFFC 
23BC 0648 
23BC ; 0649 ..##/I##/I###/I/I#/I/I/I#/I#/I/I/I/lU##/I#/I##UO/l/l#/I###U/I#/lO#/I#/I## 
23BC ; 0650 ..END OF CKFMAX.SR 
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A.2.2.4 GMACPT (GAMMA Compute) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 ..GMACPT.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 


25 MAY 80 


3:00 PM 


..###oo#o#ooo#o###o#o#on#o#oo#o##o###ooo####oo##o### 
..GMACPT.SR ..GAMMA COMPUTE 


..THIS ROUTINUE COMPUTES 


..GAMMA = [LOG(Yl) - LOG(Y2)] I [LOG(X2) - LOG(Xl)] 


..WITH: Xl = FMAX + XI0FFSET (FOR FMAX + 6HZ) 
X2 = FMAX + X20FFSET (FOR FI1AX + 20HZ) 
Yl 
 AVGY(FMAX + YI0FFSET) 
Y2 - AVGY(FMAX + Y20FFSET) 


..WHERE:OFFSETS ARE A FUNCTION OF SPECTRA LENGTH 
AVGY(N) 
 [(INSFIX(N')*SM(N)) + ... 
(INSFIX(N+3') * SM(N+3))] I 4 
..WITH: N' - N * (256 I SPECTRA.LENGTH) 
(TO ACCOUNT FOR DIFFERENT RESOLUTIONS PER 
SPECTRA.LENGTH) 


..THE ONLY OUTPUTS ARE GAMMA INTEGER (GMAINT) 
AND GAMMA FRACTION (GMAFRC) 
..EITHER GOOD VALUES (POSITIVE < MAXIMUM) 
. .OR ERROR FLAG 
#FFFF.#FFFF FOR NEGATIVE GAMMA 
..######0####0#############################0######1# 


..EXTERNAL ROUTINUES 


LNFIX=#2352 
FLSCCK=/12308 
SNMUL T=/12804 
DIV=if10B7 


. .LENGTH FIX 
..FULL SCALE CHECK 
..SINE MULTIPLY 
..RCA 32 BIT BY 16 BIT 
..DIVIDE 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
23FO 
23FO 
23FO 
23FO 
23FO 
23FO F8E8A8; 
23F3 48BA; 
23F5 48AA; 
23F7 ; 
23F7 ; 
23F7 F826B9; 
23FA F836A9; 
23FD E9; 
23FE 
23FE 
23FE 
23FE 8AF729; 
2401 9A7729; 
2404 C32412; 
2407 ; 
2407 ; 


0277 ..INTERNAL VARIABLES (FROM NOW ON) 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 ..BEGIN HERE 
0302 
0303 
0304 
0305 .................................................... 
0306 GMACPT: ..GAMMA COMPUTE 
0307 ..GET R(MP) TO CORRECT LENGTH'S TABLE 
0308 ..GET LNFFT INTO R(ZAP2) 
0309 LDI A.O(LNFFT); PLO FRP 
0310 LDA FRP; PHI ZAP2 
0311 LDA FRP; PLO ZAP2 
0312 
0313 . .GET 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 


UXADDR=CSVLU+2 
FMAX=MXADDR+2 

ALU=FMAX+2 
MXEXP=MXVALU+2 


LNFFT=MXEXP+2 
FO=LNFFT+2 
GMAINT=F0+2 
GMAFRC=GMAINT+2 
UXNINT=GMAFRC+2 
MXNEXP=MXNINT+2 


NUMLOG=MXNEXP+2 


DENLOG=NUMLOG+3 


YXWORK=DENLOG+3 


ORG 1J23FO 


. . ADDRESS OF UA.XIMUM 
..FREQUENCY INDEX OF MAX 
..

IMUM VALUE (INTEGER) 
..EXPONENT (SHIFT) VALUE 
. .OF MAX 


. .LENGTH OF FFT 
..CORNER FREQUENCY 
. .GAMMA INTEGER 
..GAMMA FRACTION 
..

IMUM ENERGY INTEGER 
..MAXIMUM ENERGY EXPONENT 
..(CORRECTED UAX VALUE, 
..THEN LONG PERIOD LEVEL) 


..NUMERATOR (DIFFERENCE) LOG 
..8 BIT MAN. & 16 BIT CHAR. 
..DENOMINATOR (DIF.) LOG 
..8 BIT MAN. & 16 BIT CHAR. 
..WORKING Y OR X SCRATCHPAD 
..(TEHPORARY) 


R(MP) TO ASSUMED LENGTH 256 
LDI A.1(TBL256+13); PHI MP 
LDI A.0(TBL256+13); PLO 
IP 
SEX MP 


UBLNTH: 
.. TEST FOR LNFFT 
GLO ZAP 2 ; 
GHI ZAP2; 
LBDF GOYl 


. .MAYBE LENGTH 
IN R(ZAP2) =) LENGTH @ M(R('æ)) 
SM; DEC MP 
5MB; DEC MP 
..IF LNFFT =) LENGTH, THE
 
. .GOTO GO FOR Y1 
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2407 
2407 89FFOCA9; 
240B 997FOOB9; 
240F 
240F 
240F C023FE; 
2412 
2412 
2412 
2412 
2412 F8FFBA; 
2415 
2415 
2415 
2415 
2415 
2415 F8EOA8; 
2418 48BD48; 
241B 
241B ; 
241B E9; 
241C F4AD29; 
241F 9D74BD29; 
2423 
2423 
2423 
2423 48BE48; 
2426 
2426 
2426 F4AE29; 
2429 9E7COOBE; 
242D 
242D 
242D 09AB29; 
2430 
2430 
2430 F823BO; 
2433 F852AO; 
2436 DO; 
2437 


0325 
0326 
0327 
0328 
0329 ..AND RETEST 
0330 LBR MBLNTH 
0331 
0332 ..**********k************************************** 
0333 GOY1: ..GOING FOR Y1 VALUE 
0334 ..SET FLAG FOR FIRST PASS 
0335 LDI #FF; PHI ZAP2 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 . .ADD Y 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 ..LOAD INSFIX TABLE SKIP VALUE INTO R(ZAP3.0) 
0358 LDN HP; PLO ZAP3; DEC MP 
0359 
0360 .. CALL 
0361 
0362 
0363 
0364 


..ELSE GET TO NEXT LENGTH 
GLO MP; SMI flOc; PLO MP 
GHI MP; 5MBI #00; PHI MP 


..GOTO MAYBE LENGTH 


LYINIT: ..LOG2(AVG(Y1)) INITIALIZE 
..GET ADDRESS OF FIRST Y IN GROUP INTO R(MA) 
..GET ADDRESS OF FMAX INTO R(MA) 
LDI A.O(MXADDR); PLO FRP 
LDA FRP; PHI MA; LDA FRP 


ADDRESS OFFSET 
SEX MP 
ADD; PLO MA; DEC MP 
GHI MA; ADC; PHI MA; DEC MP 


..GET ADDRESS OF INSFIX VALUE INTO R(MQ) 
..GET FMAX INDEX INTO R(MQ) 
LDA FRP; PHI MQ; LDA FRP 


..ADD Y INDEX OFFSET 
ADD; PLO 
IQ; DEC MP 
GHI MQ; ADCI #00; PHI MQ 


LENGTH FIX TO GET TO INSFIX ENTRY 
LDI A.1(LNFIX); PHI ZAP 
LDI A.O(LNFIX); PLO ZAP 
SEP ZAP . . ZAP .. LENGTH FIX 
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2437 
2437 
2437 
2437 F804AA; 
243A ; 
243A ; 
243A F8FAA8; 
243D F8005818; 
2441 5818; 
2443 58; 
2444 
2444 , 
2444 F830BF; 
2447 
2447 
2447 F828BO; 
244A F804AO; 
244D ; 
244D ; 
244D ; 
244D ; 
244D 9DFF3E; 
2450 CB2456; 
2453 
2453 
2453 , 
2453 F83ABD; 
2456 
2456 
2456 ; 
2456 DO; 
2457 
2457 
2457 
2457 1D1D; 
2459 
2459 ; 
2459 E9; 
245A 8EF4AE; 
245D 9E7COOBE; 
2461 
2461 . 
2461 F8FDAF; 
2464 
2464 . 
2464 DO; 
2465 


ASP FFT Program 
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0365 .................................................... 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 ..GET R(AC) TO FRAM 
0377 LDI A.1(FRAM); PHI AC 
0378 
0379 
0380 
0381 
0382 
0383 .................................................... 
0384 
0385 
0386 
0387 
0388 
0389 
0390 ..ELSE > BOUNDARY, RESET POINTER TO START OF YSFIFO 
0391 LDI A.1(YSFWA); PHI MA 
0392 
0393 MLVLCR: ..MULT. VALUE BY CORRECTION 
0394 ..CALL SINE MULTIPLY FOR CORRECTED Y 
0395 SEP ZAP ..ZAP 
 SINE MULTIPLY 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 ..GET R(AC) TO GARBAGE (#30FD) 
0407 LDI #FD; PLO AC 
0408 
0409 ..THEN RETURN TO GET PRODUCT 
0410 SEP ZAP ..ZAP 
 MIDDLE OF SNMULT 
0411 


..YOU'RE NOW AT THE FIRST OF 4 ENTRIES TO AVG/LOG 
..SET SERIES COUNTER IN R(ZAP2.0) TO 4 
LDI #04; PLO ZAP2 


..GET R(FRP) TO 24 BITS OF WORKING Y, 
LDI A.O(YXWORK); PLO FRP 
LDI #00; STR FRP; INC FRP 
STR FRP; INC FRP 
STR FRP 


AND ZERO 


..GET R(ZAP) TO SINE MULTIPLY 
LDI A.1(SNMULT); PHI ZAP 
LDI A.O(SNMULT); PLO ZAP 


MLTADD: ..MULTIPLY, THEN ADD 
..CHECK FOR YSLWA+1 (MIGHT BE BAD AT START) 
GHI MA; SMI A.1(YSLWA+1) 
LBNF MLVLCR ..IF < BOUNDARY. THEN GOTO 
..MULT. VALUE * CORRECTION 


..AT HALFWAY, GET R(MA) TO NEXT SMOOTHED VALUE 
..(EVERY OTHER ONE IS #0000) 
INC MA; INC MA 


..GET R(MQ) TO NEXT INSFIX 
SEX MP 
GLO MQ; ADD; PLO MQ 
GHI MQ; ADCI #00; PHI MQ 
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2465 ; 0412 
2465 E8; 0413 
2466 8BF473; 0414 
2469 9B7473; 0415 
246C F8007458; 0416 
2470 1818; 0417 
2472 0418 
2472 ; 0419 
2472 2A8A; 0420 
2474 CA244D; 0421 
2477 0422 
2477 0423 
2477 0424 
2477 0425 
2477 2828; 0426 
2479 08F65818; 0427 
247D 08765818; 0428 
2481 087658; 0429 
2484 ; 0430 
2484 2828; 0431 
2486 08F65818; 0432 
248A 08765818; 0433 
248E 087658; 0434 
2491 0435 
2491 ; 0436 
2491 28; 0437 
2492 0438 
2492 ; 0439 
2492 F825BO; 0440 
2495 F8DOAO; 0441 
2498 DO; 0442 
2499 0443 
2499 0444 
2499 0445 
2499 0446 
2499 9A; 0447 
249A C224AE; 0448 
249D ; 0449 
249D ; 0450 
249D ; 0451 
249D F8F6A8; 0452 
24AO E8; 0453 
24Al 8F739F73; 0454 
24A5 8E73; 0455 
24A7 0456 
24A7 ; 0457 
24A7 29; 0458 
24A8 0459 
24A8 ; 0460 
24A8 F800BA; 0461 
24AB 0462 


..ADD PRODUCT TO WORKING Y 
SEX FRP 
GLO ZAP3; ADD; STXD 
GHI ZAP3; ADC; STXD 
LDI #00; ADC; STR FRP 
INC FRP; INC FRP 


..DECREMENT SERIES COUNTER, CHECK FOR #00 
DEC ZAP2; GLO ZAP2 
LBNZ MLTADD ..IF NOT HoO, THEN 
. .GOTO MULTI ADD NEXT Y 


..ELSE DONE WITH 4 Y'S, DIVIDE BY 4 FOR AVERAGE 
DEC FRP; DEC FRP 
LDN FRP; SHR; STR FRP; INC FRP 
LDN FRP; SHRC; STR FRP; INC FRP 
LDN FRP; SHRC; STR FRP ..DIVIDE BY 2 ONCE 


DEC FRP; DEC FRP 
LDN FRP; SHR; STR FRP; INC FRP 
LDN FRP; SHRC; STR FRP; INC FRP 
LDN FRP; SHRC; STR FRP ..DIVIDE BY 2 AGAIN 


..GET R(FRP) TO HIGH BYTE OF RESULT 
DEC FRP 


..CALL LOG2 FOR LOG2(AVG(Y)) 
LDI A.l(LOG2); PHI ZAP 
LDI A.0(LOG2); PLO ZAP 
SEP ZAP ..ZAP 
 LOG2(M(R(FRP))) 


..RETURNS WITH CHAR. IN R(MQ.O), MANTISSA IN R(AC) 


..ON RETURN, CHECK 2ND PASS FLAG 
GHI ZAP2 
LBZ SBT2ND ..IF 2ND PASS, THEN 
..GOTO SUBTRACT 2ND 


..ELSE 1ST PASS, STORE RESULT AT NUMERATOR'S LOG 
LDI A.0(NUMLOG+2); PLO FRP 
SEX FRP 
GLO AC; STXD; GHI AC; STXD 
GLO MQ; STXD 


..GET R(MP) TO Y2 ADDRESS OFFSET 
DEC MP 


..SET 2ND PASS FLAG 
LDI #00; PHI ZAP2 
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24AB 0463 
24AB C02415; 0464 
24AE 0465 
24AE 0466 
24AE 0467 
24AE ; 0468 
24AE F8F6A8; 0469 
24Bl E8; 0470 
24B2 8FF513; 0471 
24B5 9F7573; 0472 
24B8 ; 0473 
24B8 ; 0474 
24B8 C324CO; 0475 
24BB 0476 
24BB 0477 
24BB 0478 
24BB ; 0479 
24BB lE; 0480 
24BC 0481 
24BC 0482 
24BC ; 0483 
24BC 18FC8073; 0484 
24CO 0485 
24CO 0486 
24CO ; 0487 
24CO 8EF573; 0488 
24C3 0489 
24C3 ; 0490 
24C3 C324D2; 0491 
24C6 0492 
24C6 0493 
24C6 0494 
24C6 ; 0495 
24C6 F8EFA8; 0496 
24C9 F8FF7373; 0497 
24CD 1373; 0498 
24CF ; 0499 
24CF ; 0500 
24CF C02567; 0501 
24D2 ; 0502 


ASP FFT Program 
Program Code 


..GOTO LOG2(AVG(Y)) INITIALIZE 
LBR LYINIT 


..-------------------------------------------------- 


SBT2ND: ..SUBTRACT LOG2(AVG(Y2)) 
. . SUBTRACT Yl.riAN (@ NUM.MAN) - Y2.MAN AND STORE 
LDI A.0(NUMLOG+2); PLO FRP 
SEX FRP 
GLO AC; SD; STXD 
GHI AC; SDB; STXD 


..CHECK FOR MANTISSA POSITIVE 
LBDF STNCHR ..IF MANTISSA POSITIVE, THEN 
..GOTO SUBTRACT NUM.CHAR 


..ELSE MANTISSA NEGATIVE, BORROW FROM CHARACTERISTIC 
..(SUBTRACT ONE MORE, LATER) 
INC MQ 


..AND ADD #8000 (POSITIVE 32768) TO MANTISSA 
..(WILL FLIP SIGN BIT) 
INC FRP; ADI #80; STXD 


STNCHR: ..SUBTRACT NUM.CHAR 
..SUBTRACT Yl.CHAR (@NUM.CHAR) - Y2.CHAR AND STORE 
GLO MQ; SD; STXD 


..CHECK FOR POSITIVE CHARACTERISTIC 
LBDF DENCPT ..IF POSITIVE, THEN 
..GOTO DENOMINATOR COMPUTE 


..ELSE NEGATIVE CHARACTERISTIC (ERROR) 
..STORE #FFFF AT GAMMA INTEGER & FRACTION 
LDI A.O(GMAFRC+l); PLO FRP 
LDI HFF; STXD; STXD 
STXD; STXD 


..THEN EXIT WITH THAT ERROR FLAG 
LBR EXGMCT ..GOTO EXIT GAMMA COMPUTE 
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24D2 
24D2 
24D2 
24D2 
24D2 
24D2 
24D5 
24D9 
24D9 ; 
24D9 
24DB 
24DE 
24E2 
24E6 
24E6 
24E6 DO; 
24E7 
24E7 
24E7 F8F9A8; 
24EA E8; 
24EB 8F739F73; 
24EF 8E73; 
24Fl 
24Fl 
24Fl 
24F4 
24F8 
24FC 
24FC ; 
24FC DO; 
24FD 
24FD 
24FD ; 
24FD F8F9A8; 
2500 E8; 
2501 8FF573; 
2504 9F7573; 
2507 
2507 
2507 C3250F; 
250A 
250A 
250A 
250A 
250A lE; 
250B 
250B 
250B 
250B 18FC8073; 
250F 


, 
F8E2A8; 
48BE08AE; 


E929 ; 
F8FCA8; 
8EF45828; 
9E7C0058; 


, 
F8FCA8; 
2909F573; 
F8007558; 


0503 ..************************************************** 
0504 DENCPT: ..DENOMINATOR COMPUTE 
0505 ..COMPUTE LOG2(X2) - LOG2(Xl) 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 ..CALL LOG2 FOR LOG2(X2) 
0518 SEP ZAP . . ZAP .. LOG2(M(R(FRP))) 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 ..CALL LOG2 AGAIN FOR LOG2(Xl) 
0532 SEP ZAP ..ZAP .. LOG2(M(R(FRP))) 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 


..GET FMAX INDEX INTO R(MQ) 
LDI A.O(FMAX); PLO FRP 
LDA FRP; PH I MQ; LDN FRP; PLO MQ 


..ADD X2 INDEX OFFSET AND STORE AT WORKING X 
SEX MP; DEC UP 
LDI A.0(YXWORK+2); PLO FRP 
GLO MQ; ADD; STR FRP; DEC FRP 
GHI MQ; ADCI #00; STR FRP 


..ON RETURN, STORE LOG2(X2) AT DENOMINATOR'S 
LDI A.0(DENLOG+2); PLO FRP 
SEX FRP 
GLO AC; STXD; GHI AC; STXO 
GLO MQ; STXD 


LOG 


..SUBTRACT (X2 TO Xl INDEX OFFSET) 
LDI A.0(YXWORK+2); PLO FRP 
DEC MP; LDN MP; SD; STXD 
LDI #00; SDB; STR FRP 


FROM X2 INDEX 


. . ON RETURN 
..SUBTRACT X2.MAN (@ DEN. MAN) - Xl.MAN AND 
LDI A.0(DENLOG+2); PLO FRP 
SEX FRP 
GLO AC; SD; STXO 
GHI AC; SDB; STXD 


STORE 


..CHECK FOR MANTISSA POSITIVE 
LBDF STDCHR ..IF MANTISSA POSITIVE, THEN 
..GOTO SUBTRACT DEN.CHAR 


..ELSE 
ANTISSA NEGATIVE, BORROW FROM CHARACTERISTIC 
..(SUBTRACT ONE MORE. LATER) 
INC MQ 


..AND ADD #8000 (POSITIVE 32768) TO MANTISSA 
..(WILL FLIP SIGN BIT) 
INC FRP; AD I #80; STXD 
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250F 
250F 
250F 8EF573; 
2512 
2512 
2512 
2512 
2512 
2512 
2512 
2512 
2512 
2512 
2512 ; 
2512 F8F4A8; 
2515 48; 
2516 
2516 , 
2516 1818; 
2518 
2518 
2518 CA251F; 
251B ; 
251B 
251B 
251B 08; 
251C C2253A; 
251F 
251F 
251F 
251F 
251F 
251F 282828; 
2522 
2522 
2522 ; 
2522 08F65818; 
2526 08C7; 
2528 F980; 
252A F65818; 
252D 08765818; 
2531 
2531 
2531 88FDF7; 
2534 CB2512; 
2537 
2537 
2537 
2537 C02522; 
253A 
253A ; 


0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 


ASP FFT Program 
Program Code 


STDCHR: ..SUBTRACT DEN. CHAR 
..SUBTRACT X2.CHAR (@DEN.CHAR) - Xl. CHAR AND STORE 
GLO MQ; SD; STXD 


..NOTE: ASSURED ANSWER POSITIVE> #0000 


..************************************************** 
..DIVIDE NUM-CHAR.MANTISSA / DEN-CHAR. MANTISSA 
..TO DIVIDE YOU NEED TO SCALE THEM BOTH DOWN 
..UNTIL CHARACTERISTICS ARE #00 
..THEN DIVIDE THE "MANTISSAS" 


CHRCHK: . . CHARACTERISTIC CHECK 
..GET NUMERATOR CHARACTERISTIC FOR CHECK 
LDI A.O(NUMLOG); PLO FRP 
LDA FRP 


..GET TO DENOMINATOR CHAR. FOR CHECK 
INC FRP; INC FRP 


..CHECK NUMERATOR CHAR. 
LBNZ SHFLOG ..IF.NE.#OO, THEN 
. .GOTO SHIFT LOG 


..CHECK DENOMINATOR CHAR. 
LDN FRP 
LBZ DVNMDN ..IF BOTH 
 #00, THEN 
..GOTO DIVIDE NUM/DEN 


SHFLOG: ..SHIFT LOG 
..BOTH.NE.#OO, YOU HAVE TO SHIFT DOWN 
..GET BACK TO NUMERATOR CHAR. 
DEC FRP; DEC FRP; DEC FRP 


SHTHLG: ..SHIFT THIS LOG 
..SHIFT LOG DOWN BY 1 
LDN FRP; SHR; STR FRP; I
C FRP 
LDN FRP; LSNF ..IF NO SHIFT FROM CHAR., 
ORI #80 ..THEN SKIP BIT SET 
SHR; STR FRP; INC FRP 
LDN FRP; SHRC; STR FRP; INC FRP 


..TEST FOR 2ND PASS (WAS IT DENOM.LOG ?) 
GLO FRP; SDI A.O(DENLOG) 
LBNF CHRCHK ..IF 2ND PASS, THE
 
..GO BACK TO CHAR. RECHECK 


..ELSE (WAS 1ST, NUMER.LOG), GO TO SHIFT DENOM.LOG 
LBR SHTHLG ..GOTO SHIFT THIS LOG 
..@ M(R(FRP)), DENOM.LOG 
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253A 0604 
253A 0605 
253A 0606 
253A 0607 
253A 0608 
253A ; 0609 
253A F830BD; 0610 
253D F8F5AD; 0611 
2540 0612 
2540 0613 
2540 4DBF4DAF; 0614 
2544 0615 
2544 ; 0616 
2544 F800BEAE; 0617 
2548 0618 
2548 ; 0619 
2548 lD; 0620 
2549 0621 
2549 0622 
2549 0623 
2549 D410B7; 0624 
254C ; 0625 
254C ; 0626 
254C F8ECA8; 0627 
254F 9F5818; 0628 
2552 8F5818; 0629 
2555 0630 
2555 0631 
2555 0632 
2555 9EF6BE; 0633 
2558 8E76AE; 0634 
255B 0635 
255B 0636 
255B F800BFAF; 0637 
255F 0638 
255F ; 0639 
255F D410B7 ; 0640 
2562 0641 
2562 0642 
2562 0643 
2562 9F5818; 0644 
2565 8F58; 0645 
2567 0646 
2567 0647 
2567 0648 
2567 0649 
2567 0650 
2567 ; 0651 
2567 D5; 0652 
2568 C4C4C4; 0653 
256B 0654 


DVNMDN: . .DIVIDE NUM/DEN 
..WANT TO DIVIDE NUMERATOR BY DENOMINATOR 
..AND PUT ANSWER INTO GAMMA INTEGER 


..GET R(MA) TO NUMERATOR 
LDI A.1(NUMLOG+1); PHI MA 
LDI A.0(NUMLOG+1); PLO MA 


..LOAD NUMERATOR INTO LOW DIVIDEND R(AC) 
LDA MA; PHI AC; LDA MA; PLO AC 


..ZERO HIGH 16 BITS OF DIVIDEND, R(MQ) 
LDI HOO; PHI MQ; PLO MQ 


..GET R(MA) TO DENOMINATOR 
INC MA 


..CALL RCA DIVIDE FOR 
..32 BIT IN R(MQ.AC) / 16 BIT IN M(R(MA)) 
CALL DIV 


..ON RETURN STORE QUOTIENT AT GAMMA I
TEGER 
LDI A.O(GMAINT); PLO FRP 
GHI AC; STR FRP; INC FRP 
GLO AC; STR FRP; INC FRP 


..REMAINDER IS IN R(MQ) 
..SHIFT OVER TO SAVE ROOM FOR THE FRACTION'S SIGN 
GHI MQ; SHR; PHI MQ 
GLO MQ; SHRC; PLO MQ 


..ZERO LOWER 16 INPUT BITS (FOR ANOTHER DIVIDE) 
LDI HOo; PHI AC; PLO AC 


..RECALL RCA DIVIDE 
CALL DIV 


..YOU KNOW RESULTS GOOD (NO OVERFLOW) 
..STORE (FRACTION) QUOTIENT AT GAMt1A FRACTION 
GHI AC; STR FRP; INC FRP 
GLO AC; STR FRP 


..FALL THROUGH TO EXIT BACK TO FFTMN 


..************************************************** 
EXGMCT: . . EXIT GAMMA COMPUTE 
..RETURN TO CALLING PROGRAM 
EXIT 
.//C4C4C4 
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256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
256B 
25CF 
25CF 
25CF 
25CF 
25CF 
25CF 
25CF , 
25CF 03; 
2500 
2500 
2500 
2500 
2500 
2500 ; 
2500 48BF; 
2502 08AF; 
2504 ; 
2504 ; 
2504 CA250F; 
2507 9FCA250F; 
250B ; 
250B ; 
25DB ; 
250B AE; 
250C C025CF; 
250F ; 
250F ; 
250F ; 
25DF ; 
250F F80FAE; 
25E2 ; 


0655 ..#U########U##UH###U###########H#H##H############## 
0656 ..LOG2.SR ..LOG2(M(R(FRP))) 
0657 
0658 
0659 
0660 
0661 
0662 .. FIRST, 
0663 
0664 .. THEN, 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 ..LOCATE HERE 
0673 
0674 
0675 
0676 ..LOCAL VARIABLES 
0677 
0678 
0679 
0680 ..************************************************** 
0681 EXLOG2: ..EXIT LOG2 
0682 SEP PC ..RESET TO PC 
0683 
0684 
0685 ..ENTER HERE 
0686 
0687 LOG2: ..LOG2(M(FRP)) 
0688 ..LOAD VALUE TO BE 'LOG'EO INTO R(AC) 
0689 LOA FRP; PHI AC 
0690 LON FRP; PLO AC 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 


ASP FFT Program 
Program Code 


..THIS ROUTINUE FINOS THE LOG, BASE 2, 
..OF THE NUMBER POINTEO TO BY R(FRP) 
..(REQUIREO TO BE POSITIVE; IT CHECKS FOR #0000) 


IT SHIFTS THE VALUE UP TO 

IMUM SCALE 
(THE NUMBER OF SHIFTS 
 THE CHARACTERISTIC) 
THE MANTISSA IS OBTAINEO FROM A LOOKUP 
TABLE OF 128 LOG VALUES USING THE "MAX.EO" 
VALUE AS THE ADDRESS POINTER 


..ON OUTPUT THE CHARACTERISTIC IS IN R(MQ.O) AND 
THE MANTISSA IS IN R(AC) 
..#U#H#H#HU##############HH###HH#ú################## 


ORG 1125CF 


LGBASE
#2000 


..LOG TABLE @ #2DOO-#2DFE 


-------------------------------------------------- 


..CHECK NUMBER FOR #0000 
LBNZ LOMXCH 
GHI \C; LBNZ LOMXCH ..IF.NE.HOOOO, THEN 
..GOTO LOAO MAX CHAR. 


..ELSE RETURN WITH LOG2(HOOOO) = #00.#0000 
PLO MQ 
LBR EXLOG2 


..GOTO EXIT LOG2 


LOMXCH: ..LOAO 
AXIMUM CHAR. 
..LOAD 15 INTO CHAR IN R(HQ.O) 
..(MAXIMUM CHAR. BECAUSE 2**15 = 32768) 
LOI IIOF; PLO ttQ 
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25E2 
25E2 
25E2 2E; 
25E3 
25E3 
25E3 
25E6 
25E9 
25EB 
25EE 
25EE 
25EE 
25EE 
25EE 
25EE 
25EE 
25EE 
25EE 9FFEAF; 
25Fl F82DBF; 
25F4 
25F4 
25F4 4FBEOFAF; 
25F8 9EBF; 
25FA ; 
25FA ; 
25FA C025CF; 
25FD 
25FD ; 
25FD ; 
25FD ; 
25FD ; 
25FD 2688; 
25FF ; 
25FF 08; 
2600 OC; 
2601 OE; 
2602 03; 
2603 OB; 
2604 002C; 
2606 OE; 
2607 03; 
2608 03; 
2609 OOOC; 
260B 0000; 
260D ; 


, 
8FFEAF; 
9F7EBF; 
FA80; 
C225E2; 


0706 UPCKSN: 
0707 ..DECREMENT CHAR COUNTER 
0708 DEC MQ 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 ..THEN RETURN THROUGH TOP 
0731 LBR EXLOG2 
0732 
0733 ..#####################H#############H############## 
0734 ..VALUES AND TABLES 
0735 
0736 LGSCFC: 
0737 
0738 
0739 TBL32: 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 


..SHIFT UP, AND CHECK SIGN 


..SHIFT NUMBER UP ONCE AND CHECK SIGN FOR t1AX 
GLO AC; SHL; PLO AC 
GHI AC; SHLC; PHI AC 
ANI 1180 
LBZ UPCKSN 


..IF NOT AT MAX, THEN 
..GOTO RE(UP CHECK SIGN) 


. .ELSE YOU'RE AT 
tAXnIUM; USE THE HIGH 7 SIGNIFICANT 
..BITS FOR LOWER BYTE'S INDEX OFF BASE 
..(EX. LOG BASE 
#2DOO 
NUMBER'S LOG @ OOlO,lllO,ABCD,EFGO) 


..GET R(AC) TO ADDRESS 
GHI AC; SHL; PLO AC 
LDI A.l(LGBASE); PHI AC 


..LOAD MANTISSA INTO R(AC) 
LDA AC; PHI MQ; LDN AC; PLO AC 
GHI MQ; PHI AC 


,112688 


..LOG SCALE FACTOR 
. .3010 


,1108 
,flOC 
,IIOE 
, 1103 
,I/O B 
, f/002C 
,IIOE 
, I/O 3 
,#03 
,I/OOOC 
,//0000 


. .(12-4) 
..12 
..(2**4)-2 


..(X1 TO X2) INDEX OFFSET 
..X2 INDEX OFFSET 
..INSFIX (RUNNING) SKIP 
..INSFIX (INPUT) SKIP 
..Y2 INDEX OFFSET 
..Y2 ADDRESS OFFSET 
..INSFIX (RUNNING) SKIP 
..INSFIX (INPUT) SKIP 
..Y1 INDEX OFFSET 
..Y1 ADDRESS OFFSET 
..SPECTRA LENGTH (USUALLY) 


. .(12-1) 
..(4*11) 


..(4-1) 
..(4*3) 
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260D 10; 0751 TBL64: , 1110 ..(24-8) 
260E 18; 0752 , 1118 ..24 
260F 06; 0753 ,1106 ..(2**3)-2 
2610 02; 0754 ,/102 
2611 17; 0755 ,1/17 ..(24-1) 
2612 005C; 0756 ,11005C ..(4*23) 
2614 06; 0757 ,1106 
2615 02; 0758 ,1102 
2616 07; 0759 ,/107 . . (8-1) 
2617 001C; 0760 ,11001C . .(4*7) 
2619 0040; 0761 ,110040 
261B ; 0762 
261B 20; 0763 TBL128: ,/120 ..(48-16) 
261C 30; 0764 ,1130 . .48 
261D 02; 0765 ,1102 ..(2**2)-2 
261E 01; 0766 ,/101 
261F 2F; 0767 ,/12 F ..(48-1) 
2620 OOBC; 0768 ,IIOOBC . .(4*47) 
2622 02; 0769 ,1102 
2623 01; 0710 ,1101 
2624 OF; 0771 ,/IOF ..( 16-1) 
2625 003C; 0772 ,11003C ..(4*15) 
2627 0080; 0713 ,110080 
2629 ; 0774 
2629 40; 0715 TBL256: ,1140 ..(96-32) 
262A 60; 0716 ,1160 ..96 
262B 00; 0777 ,1100 ..(2**1)-2 
262C 00; 0718 , 1100 
262D 5F; 0779 ,115F ..(96-1) 
262E 017C; 0780 ,/1017C ..(4*95) 
2630 00; 0781 ,/100 
2631 00; 0782 ,/100 
2632 IF; 0783 ,Ill F ..( 32-1) 
2633 007C; 0784 ,11007C ..(4*31) 
2635 0100; 0785 ,110100 
2637 0786 
2637 ; 0787 ..111111111111#/11111111111#11#1111##/1#/1####11######11#########11####/1 
2637 ; 0788 . . END OF GttACPT. SR 
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A.2.2.5 FOLPL (FOLPL Compute) 


0000 
0000 
0000 


0000 
0000 
0000 ; 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 ..FOLPL.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0217 
0278 
0279 
0280 
0281 
0282 


26 FEB 80 


6:00 PM 


..###U######3#####0#######################U######### 
..FOLPL.SR ..CO
æUTE FO & LPL 


..THIS ROUTINUE DOES TWO FUNCTIONS: 


..FIRST, IT COMPUTES FO BY CHECKING GAMMA: 
..IF GAMMA < 1.0, THEN ABORT wI WEIRD GAMMA 
..IF 1.0 <
 GAMI1A < 1.5, THEN FO = 2.06 * FMAX.5 
..IF 1.5 <
 GAMMA < 2.5, THEN FO = 1.38 * FMAX.5 
..IF 2.5 <
 GAMMA < 3.5, THEN FO = 1.27 * FMAX.5 
..IF 3.5 <
 GAHMA < 4.5, THEN FO = 1.20 * FMAX.5 
..IF 4.5 <
 GAM
1A < 5.5, THEN FO = 1.16 * FMAX.5 
..IF 5.5 <
 GAMMA < 6.5, THEN FO = 1.13 * FMAX.5 
..IF 6.5 <
 GAMMA < 7.5, THEN FO 
 1.10 * FMAX.5 
..IF 7.5 <
 GAMMA, THEN FO = 1.00 * FMAX.5 


..THEN, IT COMPUTES THE LONG PERIOD LEVEL (LPL) BY: 
LPL 
 MAXIMUM VALUE I 0.9 
= 1.1 * MAXIMUM VALUE 
. . WHERE : MAXIMUM VALUE 
 ENERGY @ FMAX, 
(ALREADY CORRECTED FOR INSTRUMENT RESPONCE, 
GAIN FACTOR AND SPECTRA LENGTH) 


..THE ONLY OUTPUTS ARE FO AND LPL-INTEGER & EXPONENT 
..(UNLESS ABORTED, THEN LEFT UNCHANGED) 
..##O##OO#####O#################O############UU##### 


..EXTERNAL ROUTINUES 


SNMUL T
I/2804 


..SINE MULTIPLY 
. .DIVIDE 


..INTERNAL VARIABLES (FROM NOW ON) 


MXADDR=CSVLU+2 
FMAX=MXADDR+2 
MXVALU
FMAX+2 
MXEXP
MXVALU+2 


. . ADDRESS OF MAXP1UM 
..FREQUENCY INDEX OF MAX 
..MAXIMUM VALUE (INTEGER) 
..EXPONENT (SHIFT) VALUE 
. .OF MAX 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
2COO 
2COO 
2COO 
2COO 
2COO 
2COO F82CBO; 
2C03 F8AAAO; 
2C06 
2C06 
2C06 F830BD; 
2C09 F8EAAD; 
2COC 
2COC 
2COC F830BF; 
2COF F8FDAF; 
2C12 
2C12 
2C12 
2C12 
2C12 F8EDA8; 
2C15 E8; 
2C16 F801F528; 
2C1A F80075; 
2C1D CB2CA5; 
2C20 
2C20 
2C20 


0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 


LNFFT=MXEXP+2 
FO=LNFFT+2 
GMAINT=F0+2 
GtlAFRC""GMAINT+2 
MXNINT""GMAFRC+2 
MXNEXP=MXNINT+2 


NUMLOG=MXNEXP+2 


DENLOG"'NUMLOG+3 


..BEGIN HERE 


ORG fl2COO 


ASP FFT Program 
Program Code 


. . LENGTH OF FFT 
..CORNER FREQUENCY 
. .GAMMA INTEGER 
. . GAMMA FRACTION 
..MAXIMUM ENERGY INTEGER 
..MAXIMUM ENERGY EXPONENT 
..(CORRECTED MAX VALUE, 
..THEN LONG PERIOD LEVEL) 


..NUMERATOR (DIFFERENCE) LOG 
..8 BIT MAN. & 16 BIT CHAR. 
..DENOMINATOR (DIF.) LOG 
..8 BIT MAN. & 16 BIT CHAR. 


..************************************************** 
FOLPL: . . FO!LPL COMPUTE 
..INITIALIZE POINTERS 
..GET R(ZAP) SET UP FOR GAMMA COMPARE SUBROUTINUE 
LDI A.l(GMACPR); PHI ZAP 
LDI A.O(GMACPR); PLO ZAP 


..GET R(MA) TO FO (FMAX STORED THERE PREVIOUSLY) 
LDI A.1(FO); PHI MA 
LDI A.O(FO); PLO MA 


..GET R(AC) TO GARBAGE LOCATION (FOR SNMULT OUTPUT) 
LDI A.1(FRAM); PHI AC 
LDI /lFD; PLO AC 


..CHECK FOR GAMMA < 1.00 
..(JUST TEST INTEGER SINCE ASSURED 
LDI A.0(GMAINT+1); PLO FRP 
SEX FRP 
LDI /101; SD; DEC FRP 
LDI 1100; SDB 
LBNF XFOLPL 
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FRACTION IS POS.) 


..IF Gfu
 < 1.00, THEN 
..GOTO EXIT Fo/LPL COMPUTE 
..(WITH WEIRD GAMMA AS FLAG) 
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2C20 0327 
2C20 j 0328 
2C20 0329 
2C20 0330 
2C20 F82CBE; 0331 
2C23 F8D4AE; 0332 
2C26 0333 
2C26 ; 0334 
2C26 DO; 0335 
2C27 0336 
2C27 0337 
2C27 C32C50j 0338 
2C2A 0339 
2C2A 0340 
2C2A 0341 
2C2A 0342 
2C2A 0343 
2C2A 0344 
2C2A 0345 
2C2A 0346 
2C2A 2E2E; 0347 
2C2C 0348 
2C2C 0349 
2C2C ; 0350 
2C2C F828BO; 0351 
2C2F F804AO; 0352 
2C32 DO; 0353 
2C33 0354 
2C33 0355 
2C33 2DED; 0356 
2C35 ODF473; 0357 
2C38 OD745D1D; 0358 
2C3C F801F473; 0359 
2C40 F800745D1D; 0360 
2C45 0361 
2C45 ; 0362 
2C45 DO; 0363 
2C46 ; 0364 
2C46 ; 0365 
2C46 ED; 0366 
2C47 8BF473; 0367 
2C4A 9B745D; 0368 
2C4D 0369 
2C4D ; 0370 
2C4D C02C73; 0371 
2C50 0372 


..ELSE CHECK FOR GAMMA < 1.5 
..R(FRP) IS AT GAMMA INTEGER 
..GET R(MQ) TO (1.0 TO 1.5) BOUNDARY 
LDI A.1(BD1015+2); PHI MQ 
LDI A.0(BD1015+2); PLO MQ 


..CALL G

 COMPARE TO TEST FOR GAMMA < 1.5 
SEP ZAP ..ZAP = GAMMA COMPARE 


..ON RETURN IF DF 1, THEN G

MA =) 1.5 
LBDF TBLTST ..IF GAMMA =) 1.5, THEN 
..GOTO TABLE TEST 


................................................ .... 


..ELSE GAMMA < 1.5 
..FO = 2.06 * FMAX.5 
a FMAX + FMAX + (0.6 * FMAX) + 1.03 


..GET R(MQ) TO FACTOR FOR (1.00 TO 1.50) BOUNDARY 
DEC MQ; DEC MQ 


..CALL SINE MULTIPLY FOR (0.6 * Fï1AX) 
..(R(MA) @ FO W/FMAX THERE AND R(AC) @ GARBAGE) 
LDI A.1(SNMULT); PHI ZAP 
LDI A.O(SNMULT)j PLO ZAP 
SEP ZAP . . ZAP a SINE MULTIPLY 


. . AT HALFWAY ADD FMAX + FI1AX + 1 
DEC MA; SEX MA 
LDN MA; ADD; STXD 
LDN MA; ADCj STR MA; INC MA 
LDI #01; ADD; STXD 
LDI #00; ADC; STR MA; INC MA 


..RETURN TO GET MULTIPLICATION RESULT 
SEP ZAP ..ZAP = MIDDLE OF SNMULT 


..ADD PRODUCT IN R(ZAP3) TO FO 
SEX MA 
GLO ZAP3; ADD; STXD 
GHI ZAP3; ADC; STR MA 


..THEN GOTO COMPUTE LPL 
LBR LPLCPT 
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2CSO 
2CSO 
2CSO 
2CSO 
2CSO 
2CSO 
2CSO 
2CSO 2E2E2E; 
2CS3 
2CS3 
2CS3 , 
2CS3 DO; 
2CS4 
2CS4 
2CS4 CB2CSO; 
2CS7 
2CS7 
2CS7 
2CS7 
2CS7 2E2E; 
2CS9 
2CS9 
2CS9 
2CS9 
2CS9 F828BO; 
2CSC F804AO; 
2CSF DO; 
2C60 
2C60 
2C60 , 
2C60 2D; 
2C61 ODFC01SD2D; 
2C66 OD7COOSD1D; 
2C6B 
2C6B 
2C6B DO; 
2C6C 
2C6C 
2C6C ED; 
2C6D 8BF473; 
2C70 9B745D; 
2C73 
2C73 
2C73 
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..************************************************** 
..MAIN COMPARE SECTION 
..ON ENTERING YOU KNOW GAMMA =) 1.50 (IT'S LEGAL) 
..NOW JUST FIND OUT WHERE 


0373 
0374 
0375 
0376 
0377 
0378 TBLTST: ..TABLE TEST 
0379 ..GET R(MQ) TABLE POINTER TO NEXT BOUNDARY 
0380 DEC MQ; DEC MQ; DEC MQ 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 ..THEN RETURN TO GET MULTIPLICATION RESULT 
0408 SEP ZAP ..ZAP a MIDDLE OF SNMULT 
0409 
0410 . .ADD 
0411 
0412 
0413 
0414 
0415 ..AND FALL THROUGH TO COMPUTE LPL 
0416 


. . CALL GAMMA COMPARE 
..TO TEST FOR GAMMA =) M(R(MQ)) + 0.50 
SEP ZAP ..ZAP = G

 COMPARE 


. .ON RETURN CHECK FOR NOT =) BOUNDARY 
LBNF TBLTST ..IF GAMMA < BOUNDARY, THE
 
..GOTO NEXT TABLE ENTRY 


..ELSE YOU'VE GOT A HIT 
..GET R(MQ) TO MULTIPLICATION FACTOR 
DEC MQ; DEC MQ 


..CALL SINE MULTIPLY FOR 
..FACTOR @ M(R(MQ)-2) * FO @ M(R(MA)) 
..(R(MA) @ FO W!FMAX THERE AND R(AC) @ GARBAGE) 
LDI A.1(SNMULT); PHI ZAP 
LDI A.O(SNMULT); PLO ZAP 
SEP ZAP .. ZAP = SINE MULTIPLY 


. . AT HALFWAY ADD 1 TO FMAX 
..(THE RESULT OF THE 0.5 ON FMAX * FACTOR) 
DEC MA 
LDN MA; ADI #01; STR MA; DEC MA 
LDN MA; ADCI #00; STR MA; INC MA 


PRODUCT IN R(ZAP3) TO FO 
SEX :fA 
GLO ZAP3; ADD; STXD 
GHI ZAP3; ADC; STR 'fA 
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2cn 
2Cn 
2Cn 
2C73 
2C73 
2C73 
2Cn 
2C76 
2C79 
2C79 
2C79 F82CBE; 
2C7C F8D5AE; 
2C7F 
2C7F 
2C7F DO; 
2C80 
2C80 
2C80 2D; 
2CBl 
2C81 
2CB1 F830BF; 
2C84 F8FDAF; 
2C87 
2C87 , 
2C87 DO; 
2C88 
2CBB 
2C88 
2C89 
2C8C 
2C8F 
2C8F 
2CBF FA80; 
2C91 C22CA5; 
2C94 ; 
2C94 
2C94 
2C94 ODF65D1D; 
2C9B OD765D; 
2C9B 
2C9B 
2C9B 
2C9D 
2CA1 
2CA5 
2CA5 
2CA5 


, 
F830BD; 
F8FOADj 


ED; 
8BF473; 
9B745D; 


1DlD; 
ODFC0173; 
OD7C005D; 


0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 


..************************************************** 
LPLCPT: ..LPL COMPUTE 
..HERE MULTIPLY MAX.ENERGY.INT (VALUE AT FMAX), 
..BY 1.10, AND ADJUST EXPONENT IF NECASSARY 


..GET R(MA) TO MAXIMUM ENERGY INTEGER 
LDI A.1(MXNINT); PHI MA 
LDI A.O(MXNINT); PLO MA 


..GET R(MQ) TO LPL FACTOR (0.10 = #OCCD) 
LDI A.1(LPLFCT); PHI MQ 
LDI A.O(LPLFCT); PLO MQ 


..CALL SINE MULTIPLY FOR PRODUCT 
SEP ZAP ..ZAP a SINE MULTIPLY 


..AT HALFWAY GET R(MA) BACK TO MAX.INT.O 
DEC MA 


..GET R(AC) BACK TO OLD GARBAGE 
LDI A.1(FRAM); PHI AC 
LDI #FD; PLO AC 


..THEN RETURN TO GET MULTIPLICATION RESULT 
SEP ZAP ..ZAP a MIDDLE OF SNMULT 


..ADD RESULT TO MAXIMUM INTEGER 
SEX MA 
GLO ZAP3; ADD; STXD 
GHI ZAP3; ADC; STR MA 


..CHECK FOR OVERFLOW I
TO SIGN 
ANI #80 
LBZ XFOLPL ..IF NO OVERFLOW, THEN 
..GOTO EXIT FO!LPL COMPUTE 


..ELSE SHIFT MAXIMUM ENERGY INTEGER DOWN 
LDN MA; SHR; STR MA; INC MA 
LDN MA; SHRC; STR MA 


..AND INCREMENT MAXIMUM ENERGY EXPONENT 
INC MA; INC MA 
LDN 
1A; ADI gOl; STXD 
LDN MA; ADCI #00; STR MA 


..THEN FALL THROUGH TO EXIT 
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2CA5 
2CAS 
2CA5 
2CAS 
2CA6 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 
2CA9 ; 
2CA9 03; 
2CAA 
2CAA 
2CAA 
2CAA 
2CAA 
2CAA 
2CAA ; 
2CAA E8; 
2CAB ; 
2CAB ; 
2CAB 1818; 
2CAD F840F528; 
2CB1 
2CB1 
2CB1 
2CB1 
2CB2 
2CB3 
2CB5 
2CB5 , 
2CB5 F528; 
2CB7 F80075; 
2CBA ; 
2CBA ; 
2CBA C02CA9; 
2CBO ; 


, 
05; 
C4C4C4; 


OE; 
CF; 
FC01; 


0464 ..************************************************** 
0465 XFOLPL: ..EXIT FO/LPL COMPUTE 
0466 ..RETURN TO CALLING PROGRAM 
0467 EXIT 
0468 ,#C4C4C4 
0469 
0470 ..############00#################################### 
0471 ..GI1ACMP.SR ..GAMMA COMPARE 
0472 
0473 ..THIS ROUTINUE CHECKS FOR GM1MA < M(R(MQ)) + 0.50 
0474 ..OR: 
0475 
0476 
0477 ..(NOTE: ASSUREO BOTH INTEGER & FRACTION POSITIVE) 
0478 
0479 
0480 
0481 
0482 
0483 ..IT ASSUMES R(FRP) POINTS TO GMAINT.1 
0484 ..#################################U################ 
0485 
0486 
0487 
0488 
0489 
0490 
0491 ..ENTER HERE 
0492 
0493 GMACPR: ..GAMMA COMPARE 
0494 ..CHECK FOR GAMMA < M(R(MQ)) + 0.50 
0495 ..SET X TO R(FRP) 
0496 SEX FRP 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 ..THEN EXIT THROUGH TOP WITH OF FLAG 
0513 LBR EXGMCP 
0514 


ASP FFT Program 
Program Code 


GMAINT.GMAFRC < M(R(MQ)) + 0.50 (#WXYZ.#4000) 


..AND RETURNS WITH: 
OF = 0 IF GAMMA < M(R(MA)) + 0.50 
OF a 1 IF GAMMA =) M(R(MQ)) + 0.50 


EXGMCP: ..EXIT G

 COMPUTE 
..RETURN TO MAIN PROGRAM 
SEP PC ..RESET TO PC 


..SUBTRACT 0.50 (#4000) FROM GAMMA FRACTION 
INC FRP; INC FRP 
LOr #40; SO; OEC FRP 


..IF RESULT OF FRACTION SUBTRACTION 
..SUBTRACT 
(R(MQ)) FROM INTEGER 
LON HQ 
LSOF 
ADI #01 


IS POSITIVE 


..IF FRCT. SUBTRACTION NEG. 
..SUBTRACT M(R(MQ)) + 1 


..NOW SUBTRACT INTEGER 
SO; OEC FRP 
LOI #00; SOB 
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2CBD 0515 ..################################################00 
2CBD 0516 ..TABLE OF VALUES 
2CBD 0517 
2CBD ; 0518 BD1525: ..(1.50 TO 2.50) BOUNDARY 
2CBD 30A4; 0519 ,#30A4 . .38/100 ..ADDED (PRODUCT FACTOR) 
2CBF 01; 0520 ,#01 . .GAMMA BOUNDARY 
2CCO ; 0521 BD2535: 
2CCO 228F; 0522 ,#228F ..27/100 
2CC2 02; 0523 ,#02 
2CC3 ; 0524 BD3545: 
2CC3 199A; 0525 ,1!199A ..20/100 
2CC5 03; 0526 ,#03 
2CC6 ; 0527 BD4555: 
2CC6 147B; 0528 ,#147B ..16/100 
2CC8 04; 0529 ,1104 
2CC9 ; 0530 BD5565: 
2CC9 10A4; 0531 ,1I10A4 . .13/100 
2CCB 05; 0532 ,1105 
2CCC ; 0533 BD6575: 
2CCC OCCO; 0534 ,#OCCD ..10/100 
2CCE 06; 0535 ,#06 
2CCF ; 0536 BDGE75: 
2CCF 0000; 0537 ,#0000 . .00/100 
2CD1 07; 0538 ,#07 
2CD2 0539 
2CD2 ; 0540 BD1015: . .( 1.00 TO 1.50) BOUNDARY 
2CD2 07AE; 0541 ,#07AE . .06/100 
2CD4 01; 0542 ,#01 
2CD5 0543 
2CD5 0544 LPLFCT: ..LPL FACTOR 
2CD5 OCCD; 0545 ,#OCCD ..10/100 
2CD7 0546 
2CD7 0547 ..#################################################8 
2CD7 0548 ..END OF FO/LPL COMPUTE.SR 
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A.2.3 Subroutines 


A.2.3.l SUB ROT (Subroutine Block) 


0000 
0000 
0000 


0001 
0002 ..SUBROT.SR 
0003 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
2800 3014; 
2802 3036; 
2804 304A; 
2806 305B; 
2808 306A; 
280A 3084; 
280C 30AE; 
280E C028F7; 
2811 ; 
2811 ; 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 


ORG 112800 
BR WRPTST 
BR CSMULT 
BR SNMULT 
BR MLTMDL 
BR ADDSTF 
BR NEWVAL 
BR TRGSET 
LBR SHPSET 
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21 JAN 80 


2:10 PM 


..11#111111111111111111111111111111#1111111111111111111111111111111111#111111#1111#1111#11111111 
..SUBROT.SR SUBROUTINUE BLOCK 
..111111#11111111111111111111#11111111#111111111111111111111111111111111111111111111111111111111111 


. . VECTORS TO INTERNAL ROUTlNUES 
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..WRAPAROUND TEST 
..COSINE MULTIPLY 
..COSINE MULTIPLY 
..MIDDLE OF FFT MULT 
..ADD & STUFF 
. .NEW VALUE 
. . TRIG SET 
..SHAPE SET 



ASP FFT Program 
Program Code 


2811 
2811 
2811 
2811 
2811 
2811 
2811 
2811 
2811 ; 
2811 
2811 
2811 
2811 
2811 
2811 
2811 
2811 
2811 ; 
2811 2C; 
2812 2C; 
2813 , 
2813 03; 
2814 
2814 
2814 
2814 lC; 
2815 EC; 
2816 80; 
2817 F7; 
2818 AD; 
2819 2C; 
281A 90; 
281B 77; 
281C BD; 
281D 
281D , 
281D 3B26; 
281F 
281F 
281F , 
281F 1C; 
2820 lC; 
2821 , 
2821 F8FF; 
2823 BB; 
2824 , 
2824 3029; 
2826 


0260 ..#########################00####################### 
0261 ..WRPTST.SR WRAPAROUND TEST 
0262 
0263 
0264 
0265 ..IF 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 ..RETURN PORTION 
0277 CHGRTN: 
0278 
0279 
0280 EXWRTS: 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 ..IF NEGATIVE RESULT,YOU'RE NOT AT BOUNDARY 
0296 BNF UNDRBY ..BRANCH TO UNDER BDRY 
0297 
0298 
0299 
0300 
0301 
0302 ..SET 
0303 
0304 
0305 ..AND 
0306 
0307 


..TESTS R(MA) FOR -) BOUNDARY 
AND REINITIALIZES IF NECESSARY 
REINITIALIZED THE NEW ADDRESS WILL BE AS FAR 
INTO THE START OF THE TABLE AS IT HAD BEEN 
PAST THE END 


..ASSUMES R(ZAP1) POINTS TO END BOUNDARY ADDRESS 
..AND M(R(ZAP1) + 2) IS THE START BOUNDARY ADDRESS 
..R(ZAP3.1) WILL BE A FLAG IN THE SUBROUTINUE 
..###############################################uon 


..CHANGED R(ZAP1) RETURN 


DEC ZAP 1 
DEC ZAPl 


SEP PC 


..EXIT WRAPAROUND TEST 
. .RESET TO PC 


..TEST PORTION - SUBTRACT BOUNDARY FROM POINTER 
WRPTST: ..WRAPAROUND TEST 
INC ZAPl ..GET TO LOW BOUNDARY 
SEX ZAPl 
GLO t-IA 
SM 
PLO 
IA 
DEC ZAPl 
GHI MA 
5MB 
PHI MA 


..GET LOW POINTER 
..R(MA) - M(R(ZAP1)) -) D 


. .HIGH TOO 


..IF POSITIVE RESULT ( -) 0 ) 
..MOVE BOUNDARY TO FRONT (FWA) 
INC ZAP1 
INC ZAPl 
FLAG FOR ADDING POSITIVE TO FRONT 
LDI tiFF 
PHI ZAP) 
GO TO DOUBLE PRECISION ADD 
BR DPRADD 
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2826 
2826 
2826 F800; 
2828 BB; 
2829 
2829 
2829 1C; 
282A 8D; 
282B F4; 
282C AD; 
282D 2C; 
282E 9D; 
282F 74; 
2830 BD; 
2831 
2831 
2831 
2832 
2834 
2834 
2834 3011; 
2836 
2836 
2836 
2836 


0308 ..LESS THAN BOUNDARY 
0309 ..SET FLAG FOR ADDING NEGATIVE TO REAR (LWA) 
0310 UNDRBY: LDI #00 
0311 PHI ZAP3 
0312 
0313 ..DOUBLE PRECISION ADD 
0314 DPRADD: INC ZAP1 
0315 GLO UA 
0316 ADD 
0317 PLO 
1A 
0318 DEC ZAP1 
0319 GHI MA 
0320 ADC 
0321 PHI MA 
0322 
0323 
0324 
0325 
0326 
0327 . .
IDST BE AT FRONT. RESET TO END 
0328 BR CHGRTN 
0329 
0330 
0331 
0332 


. 
9B; 
3213 ; 


..CHECK IF ZAP1 AT END BOUNDARY (LWA) 
GHI ZAP3 
BZ EXWRTS 
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2836 0333 
2836 0334 
2836 0335 
2836 0336 
2836 0337 
2836 0338 
2836 0339 
2836 0340 
2836 0341 
2836 0342 
2836 0343 
2836 0344 
2836 0345 
2836 0346 
2836 0347 
2836 0348 
2836 0349 
2836 0350 
2836 0351 
2836 0352 
2836 0353 
2836 0354 
2836 0355 
2836 0356 
2836 0357 
2836 0358 
2836 ; 0359 
2836 EOnOO; 0360 
2839 0361 
2839 0362 
2839 61106200; 0363 
283D 0364 
283D ; 0365 
283D F8DEAC; 0366 
2840 EC6665; 0367 
2843 3054; 0368 
2845 0369 
2845 0370 
2845 0371 
2845 0372 
2845 EO; 0373 
2846 6100; 0374 
2848 0375 
2848 ; 0376 
2848 7003; 0377 
284A ; 0378 
284A ; 0379 


..#H#################I#####n##########n###n###n#o### 
..CS/SNMULT COSINE/SINE MULTIPLY 


..THIS PROGRAM CAN BE ENTERED AT TWO PLACES 
..COSINE MULTIPLY TAKES OPERAND B FROM M(CSVLU) 
..SINE MULTIPLY TAKES OPERAND B FROM M(R(MQ)) 
..IN EITHER CASE. OPERAND A COMES FROM M(R(MA)) 


..THE RESULT GOES TO M(R(AC)) AND ALSO IS SAVED 
IN R(ZAP3) 


..IT DELIVERS THE OPERANDS TO THE MULTIPLIER 
JUMPS OUT WHILE THE HARDWARE OPERATES 
THEN RETURNS TO STORE THE RESULT 
..SINCE ONE OF THE OPERANDS IS A FRACTION 
(TRIG VALUE) YOU HAVE TO MULTIPLY 
RESULT BY 2 (SHIFT LEFT BY 1) 
TO GET THE CORRECT ANSWER 


..MA & AC (AND MQ IF USED) ARE LEFT INCREMENTED BY 2 


..NOTE: P MUST BE ZAP(RO) 
..#nnn#nnn#nnnnnnunnn#n#nn###nnnn#n#nnnn#n######n### 


CSMULT: ..COSINE MULTIPLY 
..DISABLE INTERRUPTS 
SEX ZAP; DIS .#00 


..TURN ON MULTIPLIER 
OUT 1.#10; OUT 2.#00 


..OUTPUT COSINE VALUE 
LDI A.O(CSVLU); PLO ZAP1 
SEX ZAP1; OUT 6; OUT 5 
BR OUTMA ..THEN GOTO CONTINUE 


EXITM: ..EXIT FFT MULTIPLY 
..TURN OFF MULrIPLIER 
SEX ZAP . .OUT IMMEDIATE 
OUT 1.#00 ..LIGHTS OUT 


..ENABLE INTERRUPTS AND RETURN 
RET .003 ..IE=l. X=O, p=3 


..-------------------------------------------------- 


A':" 114 



ASP FFT Program 
Program Code 


284A ; 
284A ; 
284A E07100; 
284D 
284D ; 
284D 6110; 
284F 6200; 
2851 
2851 ; 
2851 EE; 
2852 6665; 
2854 
2854 
2854 
2854 ED; 
2855 6463; 
2857 ; 
2857 ; 
2857 E06700; 
285A ; 
285A ; 
285A D3; 
285B 
285B ; 
285B . 
285B EFlF; 
285D 6BFE; 
285F AB73; 
2861 6C7E; 
2863 BB5F; 
2865 1FlF; 
2867 
2867 
2867 3045; 
2869 
2869 
2869 


0380 SNMULT: 
0381 ..DISABLE INTERRUPTS 
0382 SEX ZAP; DIS ,#00 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 ..CO
{AND TO EXECUTE 
0398 SEX ZAP; OUT 7,800 
0399 
0400 . .NOW RETURN TO MAIN PROGRAM WHILE HARDWARE WORKS 
0401 SEP PC 
0402 
0403 -------------------------------------------------- 
0404 ..WHEN YOU COME BACK, STORE THE RESULT * 2 
0405 MLTMDL: SEX AC; INC AC ..GET TO RESULT LOW 
0406 INP 3; SHL . .LOW * 2 
0407 PLO ZAP3; STXD . . STORE SHIFTED VALUE 
0408 INP 4; SHLC ..HIGH * 2 
0409 PHI ZAP3; STR AC ..STORE SHIFTED VALUE 
0410 INC AC; INC AC ..GET TO NEXT WORD.1 
0411 
0412 ..AND RETURN THROUGH TOP 
0413 BR EXITM 
0414 
0415 
0416 


..SINE MULTIPLY 


..TURN ON HULTIPLIER 
OUT 1,1/10 
OUT 2,1100 


. .LATCH SEL4 
..RESET MULTIPLIER 


..GET OPERAND B FROM M(R(MQ)) 
SEX t-1Q 
OUT 6; OUT 5 


. .OUT HIGH/LOW 


OUTMA: 
. . GET OPERAND A 
SEX MA 
OUT 4; OUT 3 


..OUTPUT M(R(MA)) 
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2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 
2869 D3; 
286A 
286A ; 
286A ; 
286A ; 
286A E8; 
286B 89; 
286C F4; 
286D A9; 
286E AA; 
286F ; 
286F 28; 
2870 99; 
2871 74; 
2872 B9; 
2873 BA; 
2874 
2874 
2874 5C; 
2875 . 
2875 1C; 
2876 8A; 
2877 5C; 
2878 
2878 . 
2878 1A; 
2879 1A; 
287A 


0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 


..######U#UUU#U###U###########U###U###U###U#UUUU#dUU 
..ADDSTF.SR ADD & STUFF 


..THIS PROGRAM COMPUTES LOREAL & LOIMAG 
OR HIREAL & HIIMAG VIA: 


..M(R(ZAP1)) (- R(MP) + M(R(FRP)) 
..M(R(ZAP1)+2) (- R(MP) + M(R(FRP)) + 2 


..R(ZAP2) IS USED AS A TEMPORARY STORAGE LOCATION 
..R(MP) IS RETURNED UPDATED BY M(R(FRP)) 
..###U##U###########H##########U##H##UU##U###H#HUUUU 


. . RETURN PORTION 
ADSTEX: ..ADD & STUFF EXIT 
SEP PC ..RESET TO PC 


. . ENTER HERE 
ADDSTF: ..ADD & STUFF 
..ADD AS SHOWN IN FIRST LINE ABOVE 
SEX FRP 
G LO MP 
ADD 
PLO MP 
PLO ZAP2 


DEC FRP 
GHI MP 
ADC 
PHI MP 
PHI ZAP2 


..STORE TO --REAL 
STR ZAP1 


..HIGH BYTE STILL IN D 


INC ZAP1 
GLO ZAP2 
STR ZAP1 


. . STORE LOW BYTE 


..INCREMENT VALUE BY 2 
INC ZAP2 
INC ZAP2 
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287A 
287A 1C; 
287B 9A; 
287C 5C; 
287D , 
287D 1C; 
287E 8A; 
287F 5C; 
2880 
2880 , 
2880 1C; 
2881 
2881 , 
2881 3069; 
2883 
2883 
2883 


0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 


..STORE TO --IMAG 
INC ZAP1 
GHI ZAP2 
STR ZAP1 


INC ZAP 1 
GLO ZAP2 
STR ZAP1 


..GET R(ZAP1) TO THE NEXT LOCATION 
INC ZAP1 


..THEN RETURN THRU TOP 
BR ADSTEX. 
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2883 
2883 
2883 
2883 
2883 ; 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 
2883 . 
2883 03; 
2884 
2884 
2884 
2884 
2884 ; 
2884 EC; 
2885 72; 
2886 BD; 
2887 72; 
2888 AD; 
2889 ; 
2889 ; 
2889 ; 
2889 ; 
2889 E8; 
288A 72; 
288B B9; 
288C 72; 
2880 A9; 
288E 
288E . 
288E 19; 
288F 


0478 ..#########U#####################U####U##U####U#UUUd 
0479 ..NEWVAL.SR NEW VALUE 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 ..& 
0491 
0492 ..NOTE: THE REGISTERS WILL BE WRECKED ON RETURN 
0493 ..####U#########U##UU##U#####U###U#U#U##U#######U### 
0494 
0495 
0496 
0497 ..RETURN PORTION 
0498 EXNWVL: 
0499 
0500 
0501 ..ENTER HERE 
0502 NEWVAL: 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 ..GET TO IT'S LOW BYTE 
0521 INC MP 
0522 


..THIS PROGRAM COMPUTES THE NEW COLUMN'S DATA 
AT POINTERS 
..LOREAL & HIREAL 


OR 


LOIMAG & HIIMAG 


VIA: 


..M(M(R(FRP))) (- M(M(R(FRP))) + M(R(ZAP1)) 
..M(M(R(FRP))+4) (- M(M(R(FRP))) - M(R(ZAP1)) 
..WHERE: 
R(FRP) IS THE LO---- POINTER LOCATION 
M(R(FRP)) IS THE ADDRESS POINTED TO 
M(M(R(FRP))) IS THE VALUE AT THAT ADDRESS 


..EXIT NEW VALUE 


SEP PC 


. .NEW VALUE 


..LOAD THE VALUE 
SEX ZAP1 
LDXA 
PHI MA 
LDXA 
PLO MA 


AT R(ZAP1) INTO R(MA) 


..R(FRP) IS AT THE LO---- POINTER 
..GET R(MP) TO THE ADDRESS R(FRP) POINTS TO 
..THAT'S THE LO---- VALUE ADDRESS 
SEX FRP 
LDXA 
PHI MP 
LDXA 
PLO MP 
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288F ; 0523 
288F ; 0524 
288F E9; 0525 
2890 8D; 0526 
2891 F5; 0527 
2892 AF; 0528 
2893 29; 0529 
2894 9D; 0530 
2895 75; 0531 
2896 BF; 0532 
2897 0533 
2897 ; 0534 
2897 19; 0535 
2898 8D; 0536 
2899 F4; 0537 
289A 73; 0538 
289B 9D; 0539 
289C 74; 0540 
289D 73; 0541 
289E 0542 
289E ; 0543 
289E 18; 0544 
289F 18; 0545 
28AO 0546 
28AO 0547 
28AO ; 0548 
28AO E8; 0549 
28A1 72; 0550 
28A2 B9; 0551 
28A3 72; 0552 
28A4 A9; 0553 
28A5 0554 
28A5 0555 
28A5 19; 0556 
28A6 0557 
28A6 . 0558 
. 
28A6 E9; 0559 
28A7 8F; 0560 
28A8 73; 0561 
28A9 9F; 0562 
28AA 73; 0563 
28AB 0564 
28AB ; 0565 
28AB 3083; 0566 
28AD 0567 
28AD 0568 
28AD 0569 


ASP FFT Program 
Program Code 


..DO THE SUBTRACTION 
..AND SAVE THE RESULT IN R(AC) 
SEX MP 
GLO MA 
SD 
PLO AC 
DEC MP 
GHI MA 
SDB 
PHI AC 


..THEN DO THE ADD & STORE 
I NC MP 
GLO MA 
ADD 
STXD 
GHI MA 
ADC 
STXD 


..GET R(FRP) TO THE HI---- POINTER ADDRESS 
INC FRP 
INC FRP 


..GET R(MP) TO THE ADDRESS R(FRP) POINTS TO 
..THAT'S THE HI---- VALUE ADDRESS 
SEX FRP 
LDXA 
PHI MP 
LDXA 
PLO MP 


..GET TO IT'S LOW BYTE 
INC MP 


..STORE THE SUBTRACTION RESULT 
SEX MP 
GLO AC 
STXD 
GHI AC 
STXD 


..THEN RETURN THRU TOP 
BR EXNWVL 
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28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD ; 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD 
28AD ; 
28AD D3; 
28AE 
28AE 
28AE 
28AE 
28AE 
28AE ; 
28AE F800; 
28BO BB; 
28B1 AB; 
28B2 ; 


0570 ..#U#UU#UUUU#U#UUUU######U###UU##UUU#U#UU###U#####U# 
0571 ..TRSSET.SR TRIG SET 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 ..LOCAL VARIABLES 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 ..RETURN PORTION 
0606 EXTRST: 
0607 
0608 
0609 ..ENTER HERE 
0610 TRGSET: 
0611 
0612 ..USE R(ZAP3) FOR TRGPTR REGISTER 
0613 . . CLEAR IT 
0614 LDI #00 
0615 PHI ZAP3 
0616 PLO ZAP3 
0617 


..THIS ROUTINUE COMPUTES THE ADDRESSES OF THE 
..POINTERS FOR THE 256 ENTRY TRIG TABLE 
..THAT IS: 


..TRGPTR (- BITREV (TRGCTR) 
..SNPTR (- TRGFWA + TRGPTR 
..CSPTR (- TRGLWA - TRGPTR 


..IF SNPTR IS PAST TRGLWA THEN IT RETURNS IT BACK 
AS MANY AS IT WAS OFF THE END 
..FOR CSPTR IT STORES THE VALUE AT CSVLU 
..IF CSPTR IS BEFORE TRGFWA IT RETURNS IT BACK 
AS MANY AS IT WAS IN FRONT OF THE START 
AND STORES THAT VALUE t NEGATED t INTO CSVLU 


..THERE IS A SECOND ENTRY POINT USED BY THE SHAPE 
ROUTINUE t THAT IS AT SHPSET t WHICH USES 
THE CSVLU COMPUTING ALGORITHM 


..IT USES R(ZAP1)t R(ZAP2)t R(ZAP3)t R(MQ) & R(FRP) 
. .IT ASSUMES R(MP) HAS TRGCTR VALUE 
..#####UU###UUUU#UUU##UUUUUUU##U####H#UUU###U#U##U## 


TRGCTR=-CSVLU+12 
CSPTR=TRGCTR+2 
SNPTR=CSPTR+2 
TRGPTR=SNPTR+2 


..TRIG COUNTER 
..COSINE POINTER 
..SINE POINTER 
. . TRIG POINTER 


SEP PC 


..EXIT TRIG SET 
..RESET TO PC 


..TRIG SET 
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28B2 ; 0618 
28B2 F800; 0619 
28B4 BA; 0620 
28B5 F80A; 0621 
28B7 AA; 0622 
28B8 0623 
28B8 0624 
28B8 0625 
28B8 99; 0626 
28B9 F6; 0627 
28BA B9; 0628 
28BB 89; 0629 
28BC 76; 0630 
28BD A9; 0631 
28BE ; 0632 
28BE 8B; 0633 
28BF 7E; 0634 
28CO AB; 0635 
28C1 9B; 0636 
28C2 7E; 0637 
28C3 BB; 0638 
28C4 0639 
28C4 ; 0640 
28C4 2A; 0641 
28C5 8A; 0642 
28C6 3AB8; 0643 
28C8 ; 0644 
28C8 ; 0645 
28C8 ; 0646 
28C8 F8Fl; 0647 
28CA A8; 0648 
28CB ; 0649 
28CB ; 0650 
28CB E8; 0651 
28CC 8B; 0652 
28CD 73; 0653 
28CE 9B; 0654 
28CF 73; 0655 
28DO 0656 
28DO 0657 
28DO ; 0658 
28DO 8BFCFE73; 0659 
28D4 9B7C2658; 0660 
28D8 0661 


ASP FFT Program 
Program Code 


..LOAD SHIFT VALUE ( 10 ) INTO R(ZAP2) 
LDI 1100 
PHI ZAP2 
LDI IIOA 
PLO ZAP2 


..SHIFT TRGCTR INTO TRGPTR THRU DF 
SHFARO: . .SHIFT AROUND 
GHI MP ..SHIFT RIGHT BIT OF TRGCTR 
SHR 
PHI tiP 
GLO M:P 
SHRC ..INTO DF 
PLO MP 


GLO ZAP3 . .SHIFT SAVED BIT LEFT 
SHLC ..INTO TRGPTR 
PLO ZAP3 
GHI ZAP3 
SHLC 
PHI ZAP3 


..COUNT DOWN VIA R(ZAP2) 10 TIMES 
DEC ZAP2 
GLO ZAP2 ..IF NOT 0 
BNZ SHFARO ..SHIFT AROUND AGAIN 


..ELSE, STORE TRGPTR VALUE 
. .GET R(FRP) TO TRGPTR 
LDI A.0(TRGPTR+1) 
PLO FRP 


. . AND STORE 
SEX FRP 
GLO ZAP3 
STXD 
GHI ZAP3 
STXD 
..LEAVE R(FRP) AT SNPTR 


..NOW DO SNPTR (- TRGFWA + TRGPTR 
GLO ZAP3; ADI A.O(TRGFWA); STXD 
GHI ZAP3; ADCI A.1(TRGFWA); STR FRP 


A-121 



ASP FFT Program 
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28D8 
28D8 
28D9 
28DD 
28DE 
28E2 
28E5 
28E5 
28E5 t 
28E5 18; 
28E6 8AFCFE73; 
28EA 9A7C2758; 
28EE 
28EE 
28EE 
28EE 
28EF 
28F3 
28F7 
28F7 
28F7 
28F7 
28F7 
28F7 
28F7 t 
28F7 E8; 
28F8 8EAB73; 
28FB 9EBB58; 
28FE ; 
28FE ; 
28FE F800AC; 
2901 
2901 
2901 
2905 
2909 
290C 
290C 
290C 
290C t 
290C 18; 
290D 8AFDFE; 
2910 AB73; 
2912 9A7D26; 
2915 BB58; 
2917 
2917 
2917 F8FFAC; 
291A ; 


t 
18; 
F8FEF7AA; 
28; 
F82777BA; 
C328EE; 


t 
28; 
8BFDFEAE; 
9B7D27BE; 


8EFFFEAA; 
9E7F26BA; 
C3291A; 


0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 


..CHECK FOR SNPTR ) TRGLWA 
INC FRP 
LDI A.O(TRGLWA); SM; PLO ZAP2 
DEC FRP 
LDI A.1(TRGLWA); 5MB; PHI ZAP2 
LBDF CSCMPT ..IF SNPTR (= TRGLWA t THEN 
..GOTO COSINE COMPUTE 


..ELSE ADD NEGATIVE OFFSET TO TRGLWA t THEN STORE 
INC FRP 
GLO ZAP2; ADI A.O(TRGLWA); STXD 
GHI ZAP2; ADCI A.1(TRGLWA); STR FRP 


CSCMPT: ..COSINE COMPUTE 
..FIRST DO CSPTR (- TRGLWA - TRGPTR 
DEC FRP 
GLO ZAP3; SDI A.O(TRGLWA); PLO 
1Q 
GHI ZAP3; SDBI A.1(TRGLWA); PHI MQ 


SHPSET: . .SHAPE SET 
..ENTRY POINT FOR SHAPE SET 
..COSINE POINTER VALUE IS IN R(MQ) 
..R(FRP) IS AT COSINE POINTER (LOW) 


..STORE POSSIBLE COSINE POINTER ADDRESS 
SEX FRP 
GLO MQ; PLO ZAP3; STXD 
GHI MQ; PHI ZAP3; STR FRP 


..SET FLAG FOR POSITIVE STORE 
LDI #00; PLO ZAP1 


..CHECK FOR CSPTR ( TRGFWA 
GLO MQ; SMI A.O(TRGFWA); PLO ZAP2 
GHI MQ; 5MBI A.1(TRGFWA); PHI ZAP2 
LBDF CSVLST ..IF PTR =) FWA t THEN 
..GOTO COSINE VALUE STORE 


..ELSE "SUBTRACT NEGATIVE" (ADD) OFFSET TO TRGFWA 
..THEN STORE CORRECTED ADDRESS 
INC FRP 
GLO ZAP2; SDI A.O(TRGFWA) 
PLO ZAP3; STXD 
GHI ZAP2; SDBI A.l(TRGFWA) 
PHI ZAP3; STR FRP 


..SET FLAG FOR NEGATIVE STORE 
LOI HFF; PLO ZAPl 
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291A ; 
291A ; 
291A 4BBA4BAA; 
291E 
291E 
291E F8DFA8; 
2921 
2921 ; 
2921 8CCA292C; 
2925 
2925 
2925 ; 
2925 8A739A58; 
2929 C028AD; 
292C 
292C 
292C ; 
292C 8AFD0073; 
2930 9A7D0058; 
2934 C028AD; 
2937 
2937 
2937 
2937 
2937 


0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 


ASP FFT Program 
Program Code 


CSVLST: ..COSINE VALUE STORE 
..GET COSINE VALUE AT ADDRESS FOR STORING 
LDA ZAP3; PHI ZAP2; LDA ZAP3 j PLO ZAP2 


. .GET R(FRP) TO "COSINE VALUE" LOCATION 
LDI A.O(CSVLU+l); PLO FRP 


..CHECK FOR NEGATE 
GLO ZAPl; LBNZ FLPSTR ..IF NEGATE TRUE, THEN 
..GOTO FLIP & STORE 


..ELSE STORE AS IS 
GLO ZAP2; STXD; GHI ZAP2j STR FRP 
LBR EXTRST ..AND RETURN THROUGH TOP 


FLPSTR: ..FLIP AND STORE 
..NEGATE, THEN STORE 
GLO ZAP2j SDI noo; STXD 
GHI ZAP2j SDBI #00; STR FRP 
LBR EXTRST ..AND RETURN THROUGH TOP 


..nu##nnnnunnnn#nuuunuunnunununnnun##nnn##nnnnnnnn#n 
..END OF SUBROUTINUES 
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A.2.3.2 DTASCL (Data Scale) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0001 
0002 ..DTASCL.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 


26 MAY 80 


5:40 PM 


..##U################UU###UU####UH#####H###HH####### 
. .DTASCL.SR DATA SCALE 


..THIS ROUTINUE SCALES THE DATA SO THAT THE GREATEST 
. .MAGNITUDE IS BETWEEN +MAXVALUE & -MAXVALUE 
..ONLY THE TOP BYTE IS CHECKED M
D IF 
..THIS MAXSHIFT 
 7t MAXVALUE 
 #7FFF 
6t # 3FFF t 
5t #lFFFt ETC. 


..FIRST THE FIFO IS SCANNED FROM START FOR LENGTH 
..VALUES TO FIND THE HIGHEST SIGNIFICANT PLACEt 
..OR UNTIL A NUMBER WHERE MSB IS ACTIVE 
(FXXX-CXXX OR 4XXX-7XXX) 
..THEN EVERY WORD IS SHIFTED (IF REQUIRED) 
..IT IS ASSUMED THAT START POINTER IS IN R(MP) 
..LENGTH POINTER IS AT M(R(FRP)) 
..THIS MAXIMUM SHIFT VALUE IS IN R(ZAP2) 
..BOUNDARY VALUE POINTER IS IN R(ZAP1) 
..AND START BOUNDARY ADDRESS AT M(R(ZAP1)+2) 


..NO REGISTERS ARE SAVED FOR RETURN 
..##H####H#######U###H###U###H#################H##HH 


..INTERNAL VARIABLES 
..SCALE VALUES 


THBDFL=YSLWA+1 
BDOKRM=THBDFL+2 
LNFREE
BDOKRM+2 
UNDRSH
LNFREE+2 
SCSTRT=UNDRSH+2 
SCLN
SCSTRT+2 


..THIS BOUNDARY FLAG 
..BOUNDARY OK REt1EMBER 
. . LENGTH FREE 
..UNDER SHIFT VALUE 
..SCALE START ADDR 
..SCALE LENGTH COUNT 
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0000 
0000 
0000 
0000 
2960 C02967; 
2963 
2963 
2963 
2963 
2963 
2963 F830BC; 
2966 
2966 
2966 D3; 
2967 
2967 
2967 
2967 
2967 
2967 
2967 E9; 
2968 72; 
2969 BD; 
296A FO; 
296B AD; 
296C 
296C 
296C E8; 
296D 72; 
296E B9; 
296F FO; 
2970 A9; 
2971 
2971 
2971 
2971 9CB8; 
2973 8CA8; 
2975 
2975 
2975 , 
2975 F83E; 
2977 BC; 
2978 F80C; 
297 A AC; 
297B 
297B ; 
297B EC; 
297C 89; 
297D 73; 
297E 99; 
297F 73; 


0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 


ASP FFT Program 
Program Code 


.................................................... 
. . BEGIN HERE 
..VECTORS TO INTERNAL ROUTINUES 
ORG #2960 
LBR DTASCL ..GOTO DATA SCALE 


. .RETURN PORTION 
EXDTSC: 


..EXIT DATA SCALE 


..RETURN R(ZAP1) TO FRAM 
LDI A.1(FRAM); PHI ZAP1 


. . THEN RETURN TO CALLING PROGRAM 
SEP PC ..RESET TO PC 


. .ENTER HERE 


DTASCL: ..DATA SCALE 
..GET START ADDRESS INTO R(MA) 
SEX MP 
LDXA 
PHI MA 
LDX 
PLO MA 


..GET LENGTH VALUE INTO R(MP) 
SEX FRP 
LDXA 
PHI MP 
LDX 
PLO MP 


..PASS BOUNDARY VALUE POINTER 
..FROM R(ZAP1) iO R(FRP) 
GHI ZAP1; PHI FRP 
GLO ZAP1; PLO FRP 


..SAVE THESE VALUES FOR USE DURI
G SCALI
G 
..GET R(ZAP1) TO SCALE LENGTH 
LDI \.1(SCLN+1) 
PHI ZAP1 
LDI A.0(SCLN+1) 
PLO ZAP1 


..SAVE LENGTH COUNT 
SEX ZAP 1 
GLO MP 
STXD 
GHI MP 
STXD 
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2980 ; 
2980 ; 
2980 8D; 
2981 73; 
2982 9D; 
2983 73; 
2984 
2984 
2984 
2984 
2985 
2987 
2988 
2989 
298B 
298C 
298C 
298C ; 
298C E8; 
298D 18; 
298E 8D; 
298F F5; 
2990 5C; 
2991 2C; 
2992 AA; 
2993 28; 
2994 9D; 
2995 75; 
2996 5C; 
2997 BA; 
2998 
2998 , 
2998 18; 
2999 18; 
299A ; 
299A ; 
299A ; 
299A EC; 
299B 1C; 
299C 89; 
299D F5; 
299E 2C; 
299F 99; 
29AO 75; 
29A1 CB29B1; 
29A4 
29A4 


, 
8A; 
FD07; 
73; 
9A; 
7DOO; 
73; 


0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 


..SAVE START ADDRESS 
GLO MA 
STXD 
GHI MA 
STXD 


..SAVE UNDERSHIFT VALUE 
..(ABSOLUTE MAX SHIFT, #07 - THIS MAX SHIFT) 
GLO ZAP2 
SDI 1107 
STXD 
GHI ZAP2 
SDBI 1100 
STXD 


..GET LENGTH FREE STORED & INTO R(ZAP2) 
..(LENGTH FREE 
 BOUNDARY - START ADDRESS) 
SEX FRP 
INC FRP 
GLO MA 
SD 
STR ZAP1 
DEC ZAP1 
PLO ZAP2 
DEC FRP 
GHI MA 
SDB 
STR ZAP1 
PHI ZAP2 


..AND LEAVE R(FRP) AT FWA 
INC FRP 
INC FRP 


..CHECK FOR BOUNDARY OK 
..(IF SCALE LENGTH <
 LENGTH FREE) 
SEX ZAP 1 
INC ZAP 1 
GLO MP 
SD 
DEC ZAPI 
GHI t1P 
SDB 
LBNF BDRYBD ..IF SCALE <= FREE, THEN 
..GOTO BOUNDARY BAD 
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29A4 
29A4 
29A4 
29A5 
29A7 
29A8 
29A8 ; 
29A8 F801; 
29AA AC; 
29AB ; 
29AB ; 
29AB F8FF; 
29AD 5C; 
29AE ; 
29AE ; 
29AE C029BB; 
29B1 
29B1 
29B1 
29B1 
29B2 
29B4 
29B5 
29B5 
29B5 
29B7 
29B8 
29B8 
29B8 F800; 
29BA 5C; 
29BB 
29BB 
29BB 
29BB 
29BB 
29BB F800; 
29BD BE; 
29BE F807; 
29CO AE; 
29C1 
29C1 . 
29C1 F8FF; 
29C3 BF; 
29C4 
29C4 
29C4 F800; 
29C6 AF; 
29C7 
29C7 


0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 ..AND JUMP TO GET SET UP 
0392 LBR GTSTUP 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 ..AND FALL THROUGH TO GET SET UP 
0409 
0410 GTSTUP: ..GET SET UP 
0411 ..GET ABSOLUTE MAXIMUM SHIFT COUNT INTO R(MQ) 
0412 LDI #00 
0413 PHI MQ 
0414 LDI #07 
0415 PLO MQ 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 


2C; 
F8FF; 
73; 


2C; 
F800; 
73; 


. 
F801 ; 
AC; 


..BOUNDARY GOOD 
..STORE TRUE (#FF) 
DEC ZAP1 
LDI IIFF 
STXD 


INTO BOUNDARY FLAG REMEMBER 


..GET R(ZAP1) TO BOUNDARY OK FLAG 
LDI A.O(THBDFL) 
PLO ZAP1 


..STORE TRUE (OFF) THERE 
LDI IIFF 
STR ZAP1 


BDRYBD: 
..STORE FALSE (000) 
DEC ZAP1 
LDI 000 
STXD 


. . BOUNDARY BAD 
INTO BOUNDARY FLAG REMEMBER 


..GET R(ZAP1) TO BOUNDARY OK FLAG 
LDI A.O(THBDFL) 
PLO ZAP 1 


..STORE FALSE (#00) THERE 
LDI 1100 
STR ZAP1 


..GET #FF INTO R(AND) t1ASK. (HIGH R(AC)) 
LDI (IFF 
PHI AC 


..GET #00 I
TO R(OR) MASK. (LOW R(AC)) 
LDI 1100 
PLO AC 
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29C7 0426 
29C7 0427 
29C7 0428 
29C7 0429 
29C7 0430 
29C7 0431 
29C7 0432 
29C7 0433 
29C7 EO; 0434 
29C8 0435 
29C8 0436 
29C8 ; 0437 
29C8 9F; 0438 
29C9 F2; 0439 
29CA ; 0440 
29CA ; 0441 
29CA ; 0442 
29CA C22908; 0443 
29CO ; 0444 
29CO ; 0445 
29CO FE; 0446 
29CE ; 0447 
29CE ; 0448 
29CE ; 0449 
29CE CB29FE; 0450 
2901 0451 
2901 0452 
2901 0453 
2901 8F; 0454 
2902 Fl; 0455 
2903 0456 
2903 0457 
2903 FBFF; 0458 
2905 CA29FE; 0459 
2908 0460 
2908 0461 
2908 0462 
2908 0463 
2908 0464 
2908 29; 0465 
2909 29; 0466 
290A 89; 0467 
290B CA29E2; 0468 
290E 99; 0469 
29DF C22AOC; 0470 
29E2 0471 
29E2 0472 
29E2 10; 0473 
29E3 10; 0474 
29E4 0475 


.................................................... 


MEMTST: . . MEMORY TEST 
..SEE IF THE R(ANO/OR) t1ASK ALLOWS THIS MANY SHIFTS 
..EITHER TRUE - NEXT SHIFT 
OR FALSE - SHIFT LESS 


..POINT X TO 
rnMORY POINTER, R(MA) 
SEX 
fA 


..ASSUME MEMORY VALUE POSITIVE 
..MEM.ANO.R(ANO) 
GHI AC 
ANO 


..IF 000, THIS SHIFT IS OK 
..THEN GOTO NEXT MEMORY CHECK 
LBZ NXTCHK 


..ELSE, CHECK SIGN BIT 
SHL 


..IF POSITIVE ANO NOT #00 
..THEN YOU MUST SHIFT LESS 
LBNF SHFTLS 


..ELSE, MEMORY IS NEGATIVE 
. .MEl-I.OR.R(OR) 
GLO AC 
OR 


..IF NOT #FF, YOU MUST SHIFT LESS 
XRI /IFF 
LBNZ SHFTLS 


..ELSE, FALL THROUGH TO TEST FOR LAST 


..OECREMENT SCALE LENGTH COUNTER, CHECK FOR #00 
NXTCHK: ..NEXT MEMORY CHECK 
DEC t.IP 
DEC MP 
GLO MP 
LBNZ NXTMEM 
GHI MP 
LBZ NOWSCL 


..NO, GOTO NEXT MEMORY 


..DONE, SO GOTO NOW SCALE 


..NEXT MEMORY, GET R(MA) TO NEXT HIBYTE 
NXTI1EM: INC 
fA 
INC I'1A 
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29E4 0476 
29E4 OC; 0477 
29E5 CA29C7; 0478 
29E8 0479 
29E8 0480 
29E8 0481 
29E8 0482 
29E8 2A; 0483 
29E9 2A; 0484 
29EA ; 0485 
29EA ; 0486 
29EA 8A; 0487 
29EB CA29C7; 0488 
29EE 9A; 0489 
29EF CA29C7; 0490 
29F2 0491 
29F2 ; 0492 
29F2 E8; 0493 
29F3 72; 0494 
29F4 BD; 0495 
29F5 FO; 0496 
29F6 AD; 0497 
29F7 28; 0498 
29F8 ; 0499 
29F8 ; 0500 
29F8 ; 0501 
29F8 F8FF; 0502 
29FA 5C; 0503 
29FB ; 0504 
29FB ; 0505 
29FB C029C7; 0506 
29FE ; 0507 
29FE ; 0508 
29FE ; 0509 
29FE 2E; 0510 
29FF ; 0511 
29FF ; 0512 
29FF 8E; 0513 
2AOO ; 0514 
2AOO C22AOC; 0515 
2A03 0516 
2A03 0517 
2A03 ; 0518 
2A03 9F; 0519 
2A04 FE; 0520 
2A05 BF; 0521 
2A06 0522 
2A06 ; 0523 
2A06 8F; 0524 
2A07 7E; 0525 
2A08 AF' 0526 
, 
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..CHECK BOUNDARY OK FLAG 
LDN ZAP 1 
LBNZ MEMTST ..IF TRUE, 
..JUMP BACK TO MEMORY TEST 


..ELSE CHECK AGAINST BOUNDARY 
..DECREMENT FREE LENGTH COUNTER 
DEC ZAP2 
DEC ZAP2 


..IF NOT ZERO, JUMP BACK TO MEMORY TEST 
GLO ZAP2 
LBNZ MEMTST 
GHI ZAP2 
LBNZ MEMTST 


..ELSE, SET R(MA) TO FIFO FWA 
SEX FRP 
LDXA 
PHI MA 
LDX 
PLO MA 
DEC FRP 
. .AND RETURN R(FRP) TO FWA 


..SET BOUNDARY OK FLAG TRUE 
LDI tiFF 
STR ZAPl 


..AND JUMP BACK TO MEMORY TEST 
LBR HEMTST 


SHFTLS: ..SHIFT LESS 
..COUNT DOWN ABSOLUTE MAXSHIFT BY 1 
DEC MQ 


..IF DOWN TO THE LIMIT (000) 
GLO MQ 
. .GOTO NOW SCALE 
LBZ NOWSCL 


..ELSE, SHIFT A ZERO LEFT INTO R(AND) 
..AND LEAVE A 1 IN DF 
GHI AC 
SHL 
PHI AC 


..SHIFT THAT 1 LEFT I
TO R(OR) 
GLO AC 
SHLC 
PLO AC 
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2A09 
2A09 
2A09 C029C7; 
2AOC 
2AOC 
2AOC 
2AOC 
2AOC 
2AOC 
2AOC 
2AOC F808; 
2AOE AC; 
2AOF 
2AOF 
2AOF 
2AOF 
2AOF EC; 
2A10 8E; 
2All F7; 
2A12 AE; 
2A13 2C; 
2A14 9E; 
2A15 77; 
2A16 BE; 
2A17 
2A17 
2A17 BE; 
2A18 C22963; 
2A1B 
2A1B 
2A1B 
2A1B F830BA; 
2A1E F8DBAA; 
2A21 EA; 
2A22 
2A22 . 
2A22 8E; 
2A23 F5; 
2A24 73; 
2A25 9E; 
2A26 75; 
2A27 73; 
2A28 
2A28 
2A28 
2A28 F804; 
2A2A AC; 
2A2B ; 


0527 
0528 ..THEN GO BACK TO TEST AGAIN 
0529 LBR MEMTST 
0530 
0531 
0532 ..************************************************** 
0533 
0534 NOWSCL: . .NOW SCALE 
0535 ..GET R(ZAP1) TO UNDERSHIFT 
0536 ..(ABSOLUTE MAX SHIFT - THIS MAX SHIFT) 
0537 LDI A.0(UNDRSH+1) 
0538 PLO ZAP1 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 


..SUBTRACT UNDERSHIFT VALUE AT M(R(ZAP1)) 
..FROM 'SHIFT TO ABSOLUTE MAX VALUE' IN R(MQ) 
..FOR THIS SHIFT VALUE. PUT INTO R(MQ) 
SEX ZAP1 
GLO MQ 
SM 
PLO MQ 
DEC ZAP1 
GHI MQ 
5MB 
PHI MQ 


..CHECK SHIFT VALUE. IF #00 RETURN 
GLO MQ 
LBZ EXDTSC 


..ELSE. SUBTRACT THIS SHIFT FROM TOTAL 
..GET R(ZAP2) TO TOTAL SHIFT LOCATION 
LDI A.1(TOTLSH+1); PHI ZAP2 
LDI A.0(TOTLSH+1); PLO ZAP2 
SEX ZAP2 


SHIFT VALUE 


..SUBTRACT THIS 
GLO MQ 
SD 
STXD 
GHI MQ 
SDB 
STXD 


SHIFT 


..SET UP FOR SHIFTING 
..GET R(ZAP1) TO BOUNDARY 
LDI A.0(BDOKRM+1) 
PLO ZAPl 


OK REMEMBER 
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2A2B ; 
2A2B EC; 
2A2C 72; 
2A2D BF; 
2A2E 
2A2E , 
2A2E 72; 
2A2F BA; 
2A30 72; 
2A31 AA; 
2A32 
2A32 , 
2A32 lC; 
2A33 lC; 
2A34 72; 
2A35 BD; 
2A36 72 ; 
2A37 AD; 
2A38 
2A38 , 
2A38 72; 
2A39 B9; 
2A3A 72; 
2A3B A9; 
2A3C ; 
2A3C ; 
2A3C F801; 
2A3E AC; 
2A3F ; 
2A3F ; 
2A3F 9F; 
2A40 5C; 
2A41 
2A41 , 
2A41 8E; 
2M2 
2A42 
2M2 FE; 
2A43 
2A43 
2A43 C32AB7; 
2A46 
2A46 ; 
2A46 76; 
2A47 FDOl; 
2A49 CA2A7A; 
2A4C 
2A4C ; 
2A4C ; 


0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 


. .LOAD VALUE AND SAVE IN TEMPORARY R(AC) 
SEX ZAPI 
LDXA 
PHI AC 


..LOAD FREE LENGTH INTO R(ZAP2) 
LDXA 
PHI ZAP2 
LDXA 
PLO ZAP2 


..LOAD SCALE START INTO R(MA) 
INC ZAP 1 
INC ZAP 1 
LDXA 
PHI MA 
LDXA 
PLO MA 


. .LOAD SCALE LENGTH INTO R(MP) 
LDXA 
PHI MP 
LDXA 
PLO MP 


..GET R(ZAPl) TO BOUNDARY OK FLAG 
LDI A.O(THBDFL) 
PLO ZAPl 


..STORE REMEMBERED FLAG THERE 
GHI AC 
STR ZAPl 


..GET THIS SHIFT VALUE BACK 
GLO MQ 


..CHECK SIGN BIT 
SHL 


..IF NEGATIVE, GOTO SHIFT DOWN 
LBDF SHDOWN 


..ELSE POSITIVE, CHECK FOR UP BY 1 
SHRC 
SDI 1101 
LBNZ SHUPMR ..SHIFT UP MORE 
.. IF > 1 
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2A4C ; 0624 
2A4C ED; 0625 
2A4D 72; 0626 
2A4E BF; 0627 
2A4F FO; 0628 
2A50 FE; 0629 
2A51 73; 0630 
2A52 9F; 0631 
2A53 7E; 0632 
2A54 5D; 0633 
2A55 0634 
2A55 0635 
2A55 29; 0636 
2AS6 29; 0637 
2A57 89; 0638 
2AS8 CA2A5F; 0639 
2ASB 99; 0640 
2A5C C22963; 0641 
2A5F 0642 
2A5F 0643 
2A5F 0644 
2A5F ID; 0645 
2A60 lD; 0646 
2A61 0647 
2A61 ; 0648 
2A61 OC; 0649 
2A62 CA2A4C; 0650 
2A65 0651 
2A65 0652 
2A6S ; 0653 
2A65 2A; 0654 
2A66 2A; 0655 
2A67 0656 
2A67 ; 0657 
2A67 8A; 0658 
2A68 CA2A4C; 0659 
2A6B 9A; 0660 
2A6C CA2A4C; 0661 
2A6F ; 0662 
2A6F ; 0663 
2A6F E8; 0664 
2A70 72; 0665 
2A71 BD; 0666 
2A72 FO; 0667 
2A73 AD; 0668 
2A74 0669 
2A74 0670 
2A74 F8FF; 0671 
2A76 SC; 0672 
2A77 0673 


SHUPON: 


. .SHIFT UP ONE 


SEX MA 
LDXA 
PHI AC 
LDX 
SHL 
STXD 
GHI AC 
SHLC 
STR MA 


..CHECK FOR DONE 
DEC MP 
DEC MP 
GLO MP 
LBNZ NXUPON 
GHI MP 
LBZ EXDTSC 


..DECREMENT LENGTH COUNT 


..NOT 0, GOTO NEXT UP ONE 


..IF 0, EXIT DATA SCALE 


..ELSE, GET TO NEXT MEMORY 
NXUPON: ..NEXT MEMORY UP ONE 
INC MA 
INC MA 


..CHECK BOUNDARY OK FLAG 
LDN ZAPl 
LBNZ SHUPON ..IF BOUNDARY OK, 
..GOTO SHIFT AGAIN 


..ELSE, DECREMENT FREE LENGTH COUNTER 
DEC ZAP2 
DEC ZAP2 


..IF NOT ZERO, GOTO SHIFT AGAIN 
GLO ZAP2 
LBNZ SHUPON 
GHI ZAP2 
LBNZ SHUPON 


..ELSE, SET R(MA) TO FIFO FWA 
SEX FRP 
LDXA 
PHI MA 
LDX 
PLO riA 


..SET BOUNDARY OK FLAG TRUE 
LDI ffFF 
STR ZAPl 


A-132 



ASP FFT Program 
Program Code 
2A77 ; 0674 ..AND SHIFT AGAIN 
2A77 C02A4C; 0675 LBR SHUPON 
2A7 A ; 0676 
2A7A ; 0677 
2A7A ; 0678 S HUPMR: ..SHIFT UP MORE THAN ONE 
2A7 A ; 0679 ..MOVE WORKING SHIFT VALUE INTO R(ZAP3) 
2A7A 9E; 0680 GHI MQ 
2A7B BB; 0681 PHI ZAP3 
2A7C 8E; 0682 GLO MQ 
2A7D AB; 0683 PLO ZAP3 
2A7E 0684 
2A7E 0685 ..NOW GET DATA WORD 
2A7E ED; 0686 SEX MA 
2A7F 72; 0687 LDXA 
2A80 BF; 0688 PHI AC 
2A81 FO; 0689 LDX 
2A82 AF; 0690 PLO AC 
2A83 0691 
2A83 ; 0692 . . NOW SHIFT IT LEFT 
2A83 8F; 0693 NOWSHL: GLO AC 
2A84 FE; 0694 SHL 
2A85 AF; 0695 PLO AC 
2A86 9F; 0696 GHI AC 
2A87 7E; 0697 SHLC 
2A88 BF; 0698 PHI AC 
2A89 0699 
2A89 0700 . . ENOUGH SHIFTS ? 
2A89 2B; 0701 DEC ZAP3 
2A8A 8B; 0702 GLO ZAP3 
2A8B CA2A83; 0703 LBNZ NOWSHL ..IF NOT, SHIFT AGAIN 
2A8E 0704 
2A8E ; 0705 . . THEN STORE BACK 
2A8E 8F; 0706 GLO AC 
2A8F 73; 0707 STXD 
2A90 9F; 0708 GHI AC 
2A91 5D; 0709 STR MA 
2A92 0710 
2A92 0711 . .CHECK FOR DONE 
2A92 29; 0712 DEC MP ..DECREMENT LENGTH COUNT 
2A93 29; 0713 DEC MP 
2A94 89; 0714 GLO HP 
2A95 CA2A9C; 0715 LBNZ NXUPMR ..NOT 0, GOTO NEXT UP MORE 
2A98 99; 0716 GHI 'iP 
2A99 C22963; 0717 LBZ EXDTSC . . IF 0, EXIT DATA SCALE 
2A9C 0718 
2A9C 0719 . . ELSE, GET TO NEXT MEMORY 
2A9C 0720 NXUPMR: . . NEXT MEMORY UP MORE 
2A9C ID; 0721 I NC MA 
2A9D ID; 0722 I NC 
1A 
2A9E 0723 
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2A9E ; 0724 ..CHECK BOUNDARY OK FLAG 
2A9E OC; 0725 LDN ZAP1 
2A9F CA2A7A; 0726 LBNZ SHUPMR ..IF BOUNDARY OK. 
2AA2 0727 ..GOTO SHIFT AGAIN 
2AA2 0728 
2AA2 0729 ..ELSE. DECREMENT FREE LENGTH COUNTER 
2AA2 2A; 0730 DEC ZAP2 
2AA3 2A; 0731 DEC ZAP2 
2AA4 0732 
2AA4 ; 0733 . .IF NOT ZERO. GOTO SHIFT AGAIN 
2AA4 8A; 0734 GLO ZAP2 
2AA5 CA2A7A; 0735 LBNZ SHUPMR 
2AA8 9A; 0736 GHI ZAP2 
2AA9 CA2A7A; 0737 LBNZ SHUPMR 
2AAC ; 0738 
2AAC ; 0739 . .ELSE. SET R(MA) TO FIFO FWA 
2AAC E8; 0740 SEX FRP 
2AAD 72; 0741 LDXA 
2AAE BD; 0742 PHI MA 
2AAF FO; 0743 LDX 
2ABO AD; 0744 PLO MA 
2ABl 0745 
2AB1 0746 ..SET BOUNDARY OK FLAG TRUE 
2AB1 F8FF; 0747 LDI IIFF 
2AB3 5C; 0748 STR ZAPl 
2AB4 0749 
2AB4 ; 0750 . . AND SHIFT AGAIN 
2AB4 C02A7A; 0751 LBR SHUPMR 
2AB7 0752 
2AB7 0753 
2AB7 0754 SHDOWN: . .SHIFT DOWN 
2AB7 0755 ..NEGATIVE SHIFT. CHECK FOR DOWN BY 1 
2AB7 76; 0756 SHRC 
2AB8 FCO 1 ; 0757 ADI 1101 
2ABA CA2AEF; 0758 LBNZ SHDNMR ..SHIFT DOWN MORE 
2ABD ; 0759 . . IF < -1 
2ABD 0760 
2ABD 0761 SHDNON: ..SHIFT DOWN BY 1 
2ABD ; 0762 ..(WITH SIGN EXTEND) 
2ABD OD; 0763 LDN MA 
2ABE FE; 0764 SHL 
2ABF CB2AC4; 0765 LBNF DONRSR 
2AC2 F901 ; 0766 ORI 1101 
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2AC4 
2AC4 76; 
2AC5 76; 
2AC6 5D; 
2AC7 1D; 
2AC8 OD; 
2AC9 76; 
2ACA 5D; 
2ACB 1D; 
2ACC ; 
2ACC ; 
2ACC 29; 
2ACD 29; 
2ACE 89; 
2ACF CA2AD6; 
2AD2 99; 
2AD3 C22963; 
2AD6 ; 
2AD6 ; 
2AD6 ; 
2AD6 OC; 
2AD7 CA2ABD; 
2ADA ; 
2ADA ; 
2ADA ; 
2ADA 2A; 
2ADB 2A; 
2ADC ; 
2ADC ; 
2ADC 8A; 
2ADD CA2ABD; 
2AEO 9A; 
2AE1 CA2ABD; 
2AE4 ; 
2AE4 ; 
2AE4 E8; 
2AE5 72; 
2AE6 BD; 
2AE7 FO; 
2AE8 AD; 
2AE9 
2AE9 , 
2AE9 F8FF; 
2AEB 5C; 
2AEC 
2AEC 
2AEC C02ABD; 
2AEF ; 
2AEF ; 
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0767 DONRSR: 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 ..CHECK BOUNDARY OK FLAG 
0786 CKDOWN: ..CHECK BOUNDARY DOWN 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 ..IF 
0796 
0797 
0798 
0799 
0800 
0801 ..ELSE, 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 ..AND SHIFT AGAIN 
0813 LBR SHDNON 
0814 
0815 


..DOWN ONE RING SHIFT RIGHT 


RSHR 
RSHR 
STR MA 
INC MA 
LDN MA 
SHRC 
STR MA 
INC MA 


..CHECK FOR DONE 
DEC MP 
DEC MP 
GLO HP 
LBNZ CKDOWN 
GHI MP 
LBZ EXDTSC 


..DECREMENT LENGTH COUNT 


..NOT 0, GOTO CHECK DOWN 


..IF 0, EXIT DATA SCALE 


LDN ZAP1 
LBNZ SHDNON 


..IF BOUNDARY OK, 
..GOTO SHIFT AGAIN 


..ELSE, DECREMENT FREE LENGTH COUNTER 
DEC ZAP2 
DEC ZAP2 


NOT ZERO, GOTO SHIFT AGAIN 
GLO ZAP2 
LBNZ SHDNON 
GHI ZAP2 
LBNZ SHDNON 


SET R(MA) 
SEX FRP 
LDXA 
PHI MA 
LDX 
PLO MA 


TO FIFO FWA 


..SET BOUNDARY OK FLAG TRUE 
LDI /IFF 
STR ZAP1 
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2AEF 
2AEF . 
2AEF 9E; 
2AFO BB; 
2AFl 8E; 
2AF2 AB; 
2AF3 
2AF3 
2AF3 ED; 
2AF4 72; 
2AF5 BF; 
2AF6 FO; 
2AF7 AF; 
2AF8 ; 
2AF8 ; 
2AF8 9F; 
2AF9 FE; 
2AFA CB2AFF; 
2AFD F901; 
2AFF ; 
2AFF 76; 
2BOO 76; 
2B01 BF; 
2B02 8F; 
2B03 76; 
2B04 AF; 
2B05 
2B05 . 
2B05 1B; 
2B06 8B; 
2B07 CA2AF8; 
2BOA ; 
2BOA ; 
2BOA 8F; 
2BOB 73; 
2BOC 9F; 
2BOD 5D; 
2BOE 
2BOE . 
2BOE 29; 
2BOF 29; 
2Bl0 89; 
2B11 CA2B18; 
2B14 99; 
2B15 C22963; 
2818 
2B18 
2B18 . 
2B18 lD; 
2B19 10; 
2B1A ; 


0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 ..NOW SHIFT IT RIGHT (WITH SIGN EXTEND) 
0831 NOWSHR: GHI AC 
0832 SHL 
0833 LBNF DMRRSR 
0834 ORI #01 
0835 DMRRSR: 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 ..ELSE. GET TO NEXT MEMORY 
0863 NXDNMR: ..NEXT MEMORY UP MORE 
0864 
0865 
0866 


SHDNMR: ..SHIFT DOWN MORE 
..MOVE WORKING SHIFT VALUE INTO R(ZAP3) 
GHI MQ 
PHI ZAP3 
GLO MQ 
PLO ZAP 3 


..NOW GET DATA WORD 
SEX MA 
LDXA 
PHI AC 
LDX 
PLO AC 


..DOWN MORE RING SHIFT RIGHT 


RSHR 
RSHR 
PHI AC 
GLO AC 
SHRC 
PLO AC 


..ENOUGH SHIFTS? 
INC ZAP3 
GLO ZAP3 
LBNZ NOWSHR 


..IF NOT. SHIFT AGAIN 


..THEN STORE BACK 
GLO AC 
STXD 
GHI AC 
STR MA 


. . CHECK FOR DONE 
DEC MP 
DEC MP 
GLO MP 
LBNZ NXDNMR 
GHI MP 
LBZ EXDTSC 


..DECREMENT LENGTH COUNT 


..NOT O. GOTO NEXT UP MORE 


..IF O. EXIT DATA SCALE 


I NC riA 
I NC MA 
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2B1A ; 
2B1A OC; 
2B1B CA2AEF; 
2B1E ; 
2B1E ; 
2B1E ; 
2B1E 2A; 
2B1F 2A; 
2 B2 0 ; 
2B20 ; 
2B20 8A; 
2B21 CA2AEF; 
2B24 9A; 
2B25 CA2AEF; 
2B28 ; 
2B28 ; 
2B28 E8; 
2B29 72; 
2B2A BD; 
2B2B FO; 
2B2C AD; 
2B2D ; 
2B2D ; 
2B2D F8FF; 
2B2F 5C; 
2B30 ; 
2B30 ; 
2B30 C02AEF; 
2B33 
2B33 
2B33 
2B33 


0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
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..CHECK BOUNDARY OK FLAG 
LDN ZAP1 
LBNZ SHDNMR ..IF BOUNDARY OK, 
..GOTO SHIFT AGAIN 


..ELSE, DECREMENT FREE LENGTH COUNTER 
DEC ZAP2 
DEC ZAP2 


..IF NOT ZERO, GOTO SHIFT AGAIN 
GLO ZAP2 
LBNZ SHDNMR 
GHI ZAP2 
LBNZ SHDNMR 


..ELSE, SET R(MA) TO FIFO FWA 
SEX FRP 
LDXA 
PHI MA 
LDX 
PLO MA 


..SET BOUNDARY OK FLAG TRUE 
LDI IFF 
STR ZAP1 


..AND SHIFT AGAIN 
LBR SHDNMR 


..################################################## 
. . END OF DATA SCALE 
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A.2.3.3 SUBRT2 (Subroutine Block #2) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
2B50 C4C4C4C4; 
2B54 3058; 
2B56 308E; 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2B58 
2858 
2858 
2858 
2858 
2B58 
2B58 
2858 


0001 
0002 ..SUBRT2.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 


20 JAN 80 


2:30 PM 


..######1########################################### 
..SUBRT2.SR SUBROUTINUE BLOCK #2 
..#0###############0#############0##############0### 


..VECTORS TO INTERNAL ROUTINUES 


ORG 112 B50 
.#C4C4C4C4 
BR BDRYST 
BR BDRYCK 


.. BOUNDARY SET 
..BOUNDARY CHECK 


..#####n##########n###nn##n#n#n#####n######n###H#### 
..BDRYST/CK.SR BOUNDARY SET/CHECK 


..THERE ARE TWO ENTRY POINTS TO THIS ROUTINUE 
..THE FIRST COMPUTES THE LENGTH FROM FIRST ADDRESS 
TO LWA+1. THAT IS FREE LENGTH. AND 
COMPARES IT TO MOVE LENGTH FOR POSSIBLE 
BOUNDARY OK CONDITION. 
IT SETS BDRYOK. FREELN. FWA & MOVECT. 
IT REQUIRES THAT R(MA) HAVE START ADDRESS 
(IT IS LEFT UNCHANGED) AND R(MP) MUST POINT 
TO MOVE COUNT (IT IS INCREMENTED BY 2). 
R(ZAPl) MUST POINT TO LWA+1 
M(R(ZAP1)+2) MUST 8E FWA 
R(ZAP1). R(FRP) & R(ZAP2) ARE USED 
..THE SECOND ENTRY POINT DECREMENTS FREELN AND 
CHECKS FOR LWA+1 (IF REQUIRED). 
IF NECESSARY IT RESETS TO FWA. 
IT THEN DECREMENTS MOVECT TO CHECK FOR DONE 
IF DONE IT RETURNS WITH D 
 #00 
ELSE D.NOT.nOO 
HERE ONLY R(ZAP1) & R(ZAP2) ARE USED 
..nn##n#nnn######U##U####I###n##############U####### 
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2B58 
2B58 
2B58 
2B58 
2B58 EC; 
2B59 lC8DF5AA; 
2B5D 2C9D75BA; 
2B61 
2B61 ; 
2B61 F8C6A8; 
2B64 9A5818; 
2B67 8A5818; 
2B6A ; 
2B6A ; 
2B6A lC1C; 
2B6C 725818; 
2B6F 725818; 
2B72 
2B72 
2B72 495818; 
2B75 4958; 
2B77 ; 
2B77 ; 
2B77 E88AF7; 
2B7A 289A77; 
2B7D 3B87; 
2B7F ; 
2B7F ; 
2B7F ; 
2B7F F8C5AC; 
2B82 F8005C; 
2B85 308D; 
2B87 
2B87 
2B87 ; 
2B87 F8CSAC; 
2B8A F8FF5C; 
2B8D 
2B8D 
2B8D 
2B8D 
2B8D 
2B8D ; 
2B8D D3; 
2B8E ; 
2B8E ; 


0280 ..ENTER HERE FOR BOUNDARY SET 
0281 BDRYST: ..BOUNDARY SET 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 BDMOVE: ..BAD MOVE 
0314 ..SET BOUNDARY OK FLAG FALSE (OFF) 
0315 LDI A.O(BDRYOK); PLO ZAPl 
0316 LDI #FF; STR ZAPl 
0317 
0318 ..AND FALL OUT 
0319 
0320 
0321 
0322 
0323 
0324 
0325 


ASP FFT Program 
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..COMPUTE FREELN 
 LWA+l - START ADDRESS 
SEX ZAPl 
INC ZAP1; GLO MA; SD; PLO ZAP2 
DEC ZAP1; GHI MA; SDB; PHI ZAP2 


..STORE FREELN 
LDI A.O(FREELN); PLO FRP 
GHI ZAP2; STR FRP; INC FRP 
GLO ZAP2; STR FRP; I NC FRP 


..STORE FWA VALUE 
INC ZAP1; INC ZAPl 
LDXA; STR FRP; INC 
LDXA; STR FRP; INC 


FRP 
FRP 


..STORE MOVECT 
LDA MP; STR FRP; INC FRP 
LDA MP; STR FRP 


..CHECK FOR MOVELN <
 FREELN 
SEX FRP; GLO ZAP2; SM 
DEC FRP; GHI ZAP2; 5MB 
BNF BDMOVE ..IF MOVE> FREE, THEN 
. .GOTO BAD MOVE 


..ELSE GOOD MOVE. SET BOUNDARY OK FLAG TRUE 
LDI A.O(BDRYOK); PLO ZAPl 
LDI #00; STR ZAPl 
BR EXBDSC ..AND BRANCH OUT 


(1100) 


EXBDSC: ..EXIT BOUNDARY SET/CHECK 
..RETURN TO MAI
 PROGRAM 
SEP PC 
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2B8E 0326 
2B8E 0327 
2B8E 0328 
2B8E 0329 
2B8E 0330 
2B8E 0331 
2B8E 0332 
2B8E 0333 
2B8E 0334 
2B8E 0335 
2B8E 0336 
2B8E 0337 
2B8E 0338 
2B8E 0339 
2B8E F8C5AC; 0340 
2B91 EC72; 0341 
2B93 32BO; 0342 
2B95 0343 
2B95 0344 
2B95 0345 
2B95 1C; 0346 
2B96 F802F573AA; 0347 
2B9B F800755C; 0348 
2B9F 0349 
2B9F 0350 
2B9F 3ABO; 0351 
2BA1 8A3ABO; 0352 
2BA4 0353 
2BA4 0354 
2BA4 0355 
2BA4 1C1C; 0356 
2BA6 72BD72AD; 0357 
2BAA 0358 
2BAA ; 0359 
2BAA F8C5AC; 0360 
2BAD F8005C; 0361 
2BBO 0362 
2BBO 0363 
2BBO 0364 
2BBO F8CBAC; 0365 
2BB3 F802F573AA; 0366 
2BB8 F8007573; 0367 
2BBC 0368 
2BBC 0369 
2BBC 0370 
2BBC 0371 
2BBC 3A8D; 0372 
2BBE 0373 


..************************************************** 


. . BDRYCK. SR 


BOUNDARY CHECK 


..ENTER HERE TO CHECK FOR LWA+1 CONDITION 
..THEN CHECK FOR DONE WITH BLOCK 
..R(MA) IS THE ADDRESS POINTER IN QUESTION 
..R(ZAP1) & R(ZAP2) ARE USED IN THE ROUTINUE 
..************************************************** 


..ENTER HERE FOR BOUNDARY CHECK 
BDRYCK: ..BOUNDARY CHECK 


. . CHECK 


FOR BOUNDARY OK 
LDI A.O(BDRYOK); 
SEX ZAP1; LDXA 
BZ CK11VDN 


..IF BOUNDARY OK. THEN 
. .GOTO CHECK MOVE DONE 


PLO ZAP1 


..ELSE COUNT DOWN FREE LENGTH BY 2 
INC ZAP1 
LDI #02; SD; STXD; PLO ZAP2 
LDI #00; SDB; STR ZAP1 


..CHECK FOR FREE LENGTH AT #0000 
BNZ CKMVDN 
GLO ZAP2; BNZ CKMVDN ..IF NOT #0000. THEN 
..GOTO CHECK HOVE DONE 


..ELSE AT LWA+1. RESET ADDRESS POINTER TO FWA 
INC ZAP1; INC ZAP1 
LDXA; PHI MA; LDXA; PLO MA 


..AND SET BOUNDARY FLAG TRUE (#00) 
LDI A.O(BDRYOK); PLO ZAP1 
LDI #00; STR ZAP1 


CKMVDN: ..CHECK MOVE DONE 
..COUNT DOWN MOVE COUNT BY 2 
LDI A.0(MOVECT+1); PLO ZAP1 
LDI #02; SD; STXD; PLO ZAP2 
LDI #00; SDB; STXD 


..CHECK FOR DONE WITH MOVE 
..CHECK HIGH BYTE. IF NOT #00 
..RETURN WITH NOT DONE FLAG (NOT #00) 
BNZ EXBDSC 
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2BBE ; 
2BBE ; 
2BBE ; 
2BBE 8A308D; 
2BC1 
2BC1 
2BC1 
2BC1 
2BC1 


0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
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..CHECK LOW BYTE AND RETURN WITH FLAG EITHER 
..NOT #00, NOT DONE 
..OR IS #00, IS DONE 
GLO ZAP2; BR EXBDSC 


..##0####0########################################## 
..END OF SUBROUTINUE BLOCK #2 
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A.2.4 Constants and Tables 


A.2.4.1 SYSSET (System Set) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 ; 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
2660 
2660 
2660 
2660 
2660 
2660 
2660 7FFF; 
2662 0100; 
2664 0200; 
2666 268E; 
2668 26AA; 
266A ; 
266A 0080; 
266C 0080; 
266E 0100; 
2670 2688; 
2672 26AO; 
2674 ; 
2674 0258; 
2676 0100; 
2678 0200; 
267A 268E; 
267C 26AA; 
267E ; 


0001 
0002 ..SYSSET.SR 
0003 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 


12 JAN 80 


12:45 PM 


..###########0###################################### 
..SYSSET.SR SYSTEM SET 


..THIS PROGRAM SETS THE FFT ROM TABLES: 
LENGTH SET TABLES, 
P & S SHAPE TABLES, 
TRIG & SHAPING TABLE DIRECTORIES, AND 
THE BIT MASK TABLE 
FFT LENGTH TABLES 
..AND FOR RIGHT NOW. SETS YP & YS TABLE DATA 
FOR THE YPFIFO & YSFIFO 
..###########0#########0############################ 


ORG FFTTBL 


..BEGIN HERE 


..***** LENGTH SET TABLES ********** 


./F7FFF 
.#0100 
,110200 
.A(PLN128) 
.A( SLN256) 


. .NO S DEFAULT 
..PLN""128 
. .SLN""256 


.110080 
,110080 
,#0100 
,A( PLN64 ) 
.A(SLN128) 


..DT < 128 
..PLN""64 
..SLN""128 


,#0258 
,#0100 
.#0200 
,A(PLN128) 
,A( SLN256) 


. .DT < 600 
..PLN""128 
..SLN""256 
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267E 7FFF; 0281 ,1J7FFF . .DT < MAXPOS 
2680 0200; 0282 ,110200 . .PLN=-256 
2682 0400; 0283 ,110400 ..SLN=-512 
2684 2694; 0284 ,A(PLN256) 
2686 26B4; 0285 ,A(SLN512) 
2688 0286 
2688 0287 
2688 0288 ..***** P & S SHAPE TABLES ********** 
2688 0289 
2688 ; 0290 ..P-FFT LENGTH=- 64 
2688 0060; 0291 ,110060 ..75% COUNT 
268A 0020; 0292 ,110020 ..25% COUNT 
268C 0020; 0293 ,110020 ..SKIP=-512!16 
268E ; 0294 
268E ; 0295 ..P-FFT LENGTH =- 128 
268E OOCO; 0296 ,HOOCO 
2690 0040; 0297 , /10040 
2692 0010; 0298 ,#0010 
2694 0299 
2694 ; 0300 . .P-FFT LENGTH =- 256 
2694 0180; 0301 ,110180 
2696 0080; 0302 ,110080 
2698 0008; 0303 ,110008 
269A ; 0304 
269A ; 0305 . .P-FFT LENGTH =- 512 
269A 0300; 0306 ,110300 
269C 0100; 0307 ,H0100 
269E 0004; 0308 ,'0004 
26AO ; 0309 
26AO ; 0310 . . S-FFT LENGTH =- 128 
26AO 0020; 0311 ,110020 ..12.5% HEAD COUNT 
26A2 0020; 0312 ,110020 ..HEAD SKIP=-512!16 
26A4 OOAO; 0313 , HOOAO ..62.5% MIDDLE COUNT 
26A6 0040; 0314 ,H0040 ..25% TAIL COUNT 
26A8 0010; 0315 ,1/0010 ..TAIL SKIP=-512!32 
26AA ; 0316 
26AA ; 0317 ..S-FFT LENGTH .. 256 
26AA 0040; 0318 ,110040 
26AC 0010; 0319 , /10010 
26AE 0140; 0320 ,110140 
26BO 0080; 0321 ,110080 
26B2 0008; 0322 ,110008 
26B4 ; 0323 
26B4 ; 0324 ..S-FFT LENGTH =- 512 
2684 0080; 0325 ,//0080 
26B6 0008; 0326 .110008 
2688 0280; 0327 ,//0280 
26BA 0100; 0328 . /101 00 
26BC 0004; 0329 , 110004 
26BE ; 0330 
26BE ; 0331 
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26BE ; 
26BE ; 
26BE 27FE; 
26CO 26FE; 
26C2 
26C2 
26C2 
26C2 
26C2 0400; 
26C4 0200; 
26C6 0100; 
26C8 0080; 
26CA 0040; 
26CC 0020; 
26CE 0010; 
26DO 0008; 
26D2 0004; 
26D4 0000; 
26D6 
26D6 
26D6 
26D6 
26D6 26C2; 
26D8 OOOC; 
26DA 0002; 
26DC 0000; 
26DE ; 
26DE 26C4; 
26EO OOOB; 
26E2 0004; 
26E4 0000; 
26E6 ; 
26E6 26C6; 
26E8 OOOA; 
26EA 0008; 
26EC 0000; 
26EE ; 
26EE 26C8; 
26FO 0009; 
26F2 0010; 
26F4 0000; 
26F6 
26F6 


0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 


. .***** 


..***** 


. .***** 


TRIG TABLE DIRECTORY ********** 


,A(TRGLWA) 
,A(TRGFWA) 


. . TRGDIR 


BIT MASK TABLE ********** 


,/10400 
, /102 00 
,#0100 
,110080 
,/10040 
,110020 
,110010 
,110008 
,/10004 
,110000 


..VALID COLUMN COMPUTATIONS 
. . FFT END FLAG 


FFT LENGTH TABLES ********** 


,A(BITTBL) 
,flOOOC 
,110002 
,110000 


,A( B ITTBL+2 ) 
,11000B 
,110004 
,110000 


,A(BITTBL+4) 
,IIOOOA 
,/10008 
,110000 


,A(BITTBL+6) 
,/10009 
,110010 
, //0000 


A;"'144 


..FLN512 
..POINTER TO BIT MASK 
..INC/DEC VALUE FOR ORDER 


.. FLN256 


. .FLN128 


. . FLN64 
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26F6 0375 . . ***** YP & YS TABLE DATA ********** 
26F6 0376 
26F6 0377 ORC YPTBL 
30A5 0378 
30A5 3601; 0379 .A(YPFWA) 
30A7 3A01; 0380 , A( YPLW A+ 1) 
30A9 3601; 0381 .A(YPFWA) 
30AB 0000; 0382 .110000 
30AD 00; 0383 ,1100 . . YPFIFO 
30AE 0384 
30AE 3A01; 0385 ,A(YSFWA) 
30BO 3E01; 0386 .A(YSLWA+1) 
30B2 3A01; 0387 .A(YSFWA) 
3084 0000; 0388 ,110000 
30B6 00; 0389 . flOo . . YSFIFO 
30B7 0390 
30B7 0391 
30B7 0392 END 
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A.2.4.2 TRGTBL (Trig Table) 


0000 0001 
0000 0002 . . TRGTBL. SR 12 JAN 80 1:20 PM 
0000 0003 
0000 0004 
0000 0005 ..********************************************* 
0000 0006 TRGTBL.SR 
0000 0007 
0000 0008 . . TRGTBL IS A LISTING OF HEX SINE VALUES 
0000 0009 SIN (2*PI*K/512) FOR K - 0 TO 128 
0000 0010 ..RANGING FROM 0 HEX 0000) 
0000 0011 TO ALMOST +1 (HEX 7FFF) 
0000 0012 ..********************************************* 
0000 0013 
0000 0014 
0000 0015 ORG 1126FE 
26FE 0016 
26FE 0017 TRGFWA: ..SIN 
26FE 0000; 0018 ,110000 . .0 
2700 0192; 0019 ,110192 
2702 0324; 0020 ,110324 
2704 04B6; 0021 ,1104B6 
2706 0648; 0022 , /10648 
2708 07D9; 0023 ,1I07D9 
270A 096B; 0024 ,1I096B 
270C OAFB; 0025 ,IIOAFB 
270E OC8C; 0026 ,IIOC8C 
2710 OE1C; 0027 ,IIOE1C 
2712 OFAB; 0028 , II OF AB 
2714 113A; 0029 ,1I113A 
2716 12C8; 0030 ,/l12C8 
2718 1455; 0031 ,/11455 
271A 15E2; 0032 ,fl15E2 
271C 176E; 0033 ,/l176E 
271E 18F9; 0034 ,1118F9 ..16 
2720 1A83; 0035 ,/l1A83 
2722 1COC; 0036 ,/IlCOC 
2724 1D93; 0037 ,111 D93 
2726 1F1A; 0038 ,HF1A 
2728 209F; 0039 ,11209F 
272A 2224; 0040 ,//2224 
272C 23A7; 0041 ,1/23A7 
272E 2528; 0042 ,/12528 
2730 26A8; 0043 ,1I26A8 
2732 2827; 0044 ,112827 
2734 29A4; 0045 ,1I29A4 
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2736 2B1F; 0046 ,I12B1F 
2738 2C99; 0047 ,II2C99 
273A 2Ell; 0048 ,I12Ell 
273C 2F87; 0049 ,I12F87 
273E 30FC; 0050 ,I130FC ..32 
2740 326E; 0051 ,I1326E 
2742 33DF; 0052 , /13 3DF 
2744 354E; 0053 ,I1354E 
2746 36BA; 0054 ,I136BA 
2748 3825; 0055 ,113825 
274A 398D; 0056 ,I1398D 
274C 3AF3; 0057 ,1I3AF3 
274E 3C57; 0058 , 113C5 7 
2750 3DB8; 0059 ,I13DB8 
2752 3Ft7; 0060 ,II3Ft7 
2754 4074; 0061 ,114074 
2756 41CE; 0062 ,I141CE 
2758 4326; 0063 ,114326 
275A 4478; 0064 , /144 7B 
275C 45CD; 0065 ,I145CD 
275E 47lD; 0066 , /14 71D . .48 
2760 486A; 0067 ,I1486A 
2762 4984; 0068 ,I149B4 
2764 4AFB; 0069 ,I14AFB 
2766 4C40; 0070 ,I14C40 
2768 4D81; 0071 ,II4D81 
276A 4ECO; 0072 ,II4ECO 
276C 4FFB; 0073 ,II4FFB 
276E 5134; 0074 ,115134 
2770 5269; 0075 ,115269 
2772 539B; 0076 ,I1539B 
2774 54CA; 0077 ,I154CA 
2776 55F6; 0078 ,I155F6 
2778 SHE; 0079 ,115 HE 
277A 5843; 0080 , /15843 
277C 5964; 0081 ,115964 
277E 5A82; 0082 ,I15A82 ..64 
2780 5B9D; 0083 ,I15B9D 
2782 5CB4; 0084 ,II5CB4 
2784 5DC8; 0085 .115DC8 
2786 5ED7; 0086 ,I15ED7 
2788 5FE4; 0087 ,I15FE4 
278A 60EC; 0088 .1160EC 
278C 61Ft; 0089 ,//61Ft 
278E 62F2; 0090 ,I162F2 
2790 63EF; 0091 .1163EF 
2792 64E9; 0092 ,I164E9 
2794 65DE; 0093 ,I165DE 
2796 66DO; 0094 , tl66DO 
2798 67BD; 0095 ,II67BD 
279A 68A7; 0096 ,//68A7 
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279C 698C; 0097 ,11698C 
279E 6A6E; 0098 ,1I6A6E ..80 
27AO 6848; 0099 ,116848 
27A2 6C24; 0100 ,1/6C24 
27M 6CF9; 0101 ,116CF9 
27A6 6DCA; 0102 ,116DCA 
27A8 6E97; 0103 ,116E97 
27AA 6F5F; 0104 ,1I6F5F 
27AC 7023; 0105 ,117023 
27AE 70E3; 0106 ,fI70E3 
2780 719E; 0107 ,11719E 
27B2 7255; 0108 ,1/7255 
2784 7308; 0109 ,117308 
2786 73B6; 0110 ,117386 
2788 7460; 0111 ,117460 
27BA 7505; 0112 ,117505 
27BC 75A6; 0113 ,1I75A6 
278E 7642; 0114 ,117642 ..96 
27CO 76D9; 0115 ,1176D9 
27C2 776C; 0116 ,11776C 
27C4 77F8; 0117 ,1177FB 
27C6 7885; 0118 ,117885 
27C8 790A; 0119 ,1I790A 
27CA 798A; 0120 ,11798A 
27CC 7A06; 0121 ,117 A06 
27CE 7A7D; 0122 ,fI7A7D 
27DO 7AEF; 0123 ,fl7AEF 
27D2 7B5D; 0124 ,117B5D 
27D4 78C6; 0125 ,1I78C6 
27D6 7C2A; 0126 ,fI7C2A 
27D8 7C89; 0127 ,117C89 
27DA 7CE4; 0128 ,II7CE4 
27DC 7D3A; 0129 ,117D3A 
27DE 7D8A; 0130 ,117D8A ..112 
27EO 7DD6; 0131 ,117DD6 
27E2 7E1E; 0132 ,II7E 1E 
27E4 7E60; 0133 ,fI7E60 
27E6 7E9D; 0134 ,II7E9D 
27E8 7ED6; 0135 ,II7ED6 
27EA 7FOA; 0136 ,II7FOA 
27EC 7F38; 0137 , fl7F38 
27EE 7F62; 0138 , fl7F62 
27FO 7F87; 0139 ,fI7F87 
27F2 7FA7; 0140 ,tI7FA7 
27F4 7FC2; 0141 , f/lFC2 
27F6 7FD9; 0142 , fl7FD9 
27F8 7FEA; 0143 ,f17 FEA 
27FA 7FF6; 0144 , fI7 FF6 
27FC 7FFE; 0145 ,II7FFE 
27FE 7FFF; 0146 TRGLWA: , fl7FFF ..128 
2800 ; 0147 
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A.2.4.3 LOGTBL (Logarithm Table) 


0000 0001 
0000 0002 ************************************************** 
. . 
0000 0003 . .LOGTBL.SR 22 FEB 80 9: 50 PM 
0000 0004 
0000 0005 ..THIS IS A TABLE OF MA.
TISSA VALUES, BASE 2, FOR 
0000 0006 
0000 0007 .. LOG(l + (N/128) + (1/256)) FOR N - [0...127] 
0000 0008 
0000 0009 ..NOTE: THE 1/256 FACTOR YIELOS THE }lliOIAN FOR 
0000 0010 THE INCREMENT FROM ONE N TO THE NEXT N 
0000 0011 ************************************************** 
. . 
0000 0012 
0000 0013 ORG #2000 
2000 0014 
2000 0015 LGBASE: . .LOGBASE 
2000 00B8; 0016 ,1100B8 . .0 
2002 0227; 0017 ,110227 
2004 0392; 0018 ,110392 
2006 04FB; 0019 ,1104FB 
2008 0661; 0020 ,110661 
200A 07C5; 0021 ,1107C5 
200C 0926; 0022 , /10926 
200E OA84; 0023 ,IIOA84 
2010 OBOF; 0024 ,IIOBOF 
2012 0039; 0025 , /10039 
2014 OE8F; 0026 ,lloE8F 
2016 OFE3; 0027 ,IIOFE3 
2018 1135; 0028 ,111135 
201A 1284; 0029 ,111284 
201C 1301; 0030 ,111301 
201E 151C; 0031 ,1I151C 
2020 1664; 0032 ,111664 ..16 
2022 17 AA; 0033 ,1117AA 
2024 18EE; 0034 ,1I18EE 
2026 1A2F; 0035 ,111A2F 
2028 1B6F; 0036 ,1I1B6F 
202A 1CAC; 0037 . III CAC 
202C lDE7; 0038 .1110E7 
202E 1F20; 0039 , III F20 
2030 2057; 0040 , //2057 
2032 218C; 0041 ,I1218C 
2034 22BF; 0042 ,1/22BF 
2036 23FO; 0043 ,1123FO 
2038 251F; 0044 ,f1251F 
203A 264C; 0045 , /1264C 


A-149 



ASP FFT Program 
Program Code 
2D3C 2778; 0046 ,112778 
2D3E 28A1; 0047 ,I128A1 
2D40 29C8; 0048 ,I129C8 ..32 
2D42 2AEE; 0049 ,I12AEE 
2D44 2C12; 0050 ,I12C12 
2D46 2D34; 0051 ,I12D34 
2D48 2E54; 0052 ,I12E54 
2D4A 2F73; 0053 ,I12F73 
2D4C 308F; 0054 ,I1308F 
2D4E 31A8; 0055 ,I131AB 
2D50 32C4; 0056 ,II32C4 
2D52 33DC; 0057 ,I133DC 
2D54 34F2; 0058 ,I134F2 
2D56 3606; 0059 , /13606 
2D58 3719; 0060 ,113719 
2D5A 382A; 0061 ,I1382A 
2D5C 393A; 0062 ,I1393A 
2D5E 3A48; 0063 ,I13A48 
2D60 3855; 0064 ,113855 ..48 
2D62 3C60; 0065 ,I13C60 
2D64 3D69; 0066 ,I13D69 
2D66 3E72; 0067 ,113E72 
2D68 3F78; 0068 ,I13F78 
2D6A 407D; 0069 ,I1407D 
2D6C 4181; 0070 ,114181 
2D6E 4283; 0071 , /14283 
2D70 4384; 0072 ,114384 
2D72 4484; 0073 , /14484 
2D74 4582; 0074 ,114582 
2D76 467F; 0075 ,I1467F 
2D78 477A; 0076 ,II477A 
2D7 A 4874; 0077 ,114874 
2D7C 496D; 0078 ,I1496D 
2D7E 4A65; 0079 ,I14A65 
2D80 4858; 0080 ,114858 . .64 
2D82 4C50; 0081 ,II4C50 
2D84 4D44; 0082 ,I14D44 
2D86 4E36; 0083 ,I14E36 
2D88 4F27; 0084 ,I14F27 
2D8A 5017; 0085 , /15017 
2D8C 5106; 0086 ,115106 
2D8E SIF4; 0087 ,I151F4 
2D90 52EO; 0088 , 1152EO 
2D92 53CB; 0089 ,I153C8 
2D94 5485; 0090 ,115485 
2D96 559E; 0091 ,II559E 
2D98 5686; 0092 , /15686 
2D9A 576C; 0093 ,I1576C 
2D9C 5852; 0094 ,115852 
2D9E 5936; 0095 ,115936 
2DAO 5AIA; 0096 ,I15A1A ..80 
k-150 



20A2 5AFC; 
20A4 5BOO; 
20A6 5CBO; 
20A8 509C; 
20AA 5E7A; 
20AC 5F57; 
20AE 6033; 
20BO 6100; 
20B2 61E7; 
20B4 62CO; 
20B6 6398; 
20B8 64 6F ; 
20BA 6545; 
20BC 661A; 
20BE 66EE; 
20CO 67C1; 
20C2 6893; 
20C4 6964; 
20C6 6A34; 
20C8 6B04; 
20CA 6B02; 
20CC 6CAO; 
20CE 606C; 
2000 6E38; 
2002 6F03; 
2004 6FCO; 
2006 7096; 
2008 715E; 
200A 7226; 
200C 72EO; 
200E 73B2; 
20EO 7477; 
20E2 753C; 
20E4 75FF; 
20E6 76C1; 
20E8 77 83 ; 
20EA 7844; 
20EC 7904; 
20EE 79C4; 
20FO 7A82; 
20F2 7B40; 
20F4 7BFD; 
20F6 7CBA; 
20F8 7075; 
20FA 7E30; 
20FC 7EEA; 
20FE 7FA4; 
2EOO ; 
2EOO ; 


0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
01ll 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 


ASP FFT Program 
Program Code 


,1I5AFC 
,115BOO 
,115CBO 
, fl509C 
,f15E7A 
,f15F57 
, fl6033 
,f16100 
,116lE7 
,1162CO 
,116398 
,11646F 
,116545 
,11661A 
, fl66EE 
,1167Cl . .96 
,116893 
, fl6964 
,116A34 
,116B04 
, fl6 B02 
. fl6CAO 
,11606C 
, fl6E38 
.f16F03 
,fI6FCD 
, f17096 
. fl715E 
,117226 
,1172EO 
, f173B2 
,117477 ..1l2 
,f1753C 
,1I75FF 
,1176Cl 
,fl7783 
,f17844 
, fl7904 
,f179C4 
, /J7 A82 
,fJ7B40 
, fJ7BFO 
, IJ7CBA 
,fJ7075 
.#7E30 
, /J7EEA 
,1J7FA4 ..127 
..#11111111111111##1111111111##11#1111#11111111#11##1111#*#11111111#111111111111 
..ENO OF LOG TABLE.SR 
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Program Code 


A.2.4.4 INSFIX (Instrument Fix) 


0000 0001 
0000 0002 ..INSFIX.SR 26 MAY 80 5:50 PM 
0000 0003 
0000 0004 ................................................... 
0000 0005 ..THIS IS A TABLE OF INSTRUMENT CORRECTION VALUES 
0000 0006 ..FOR A GEOPHONE OPERATING AT 100 HZ. 
0000 0007 ..IT IS NORMALIZED FOR N-26 @ 5.0781 HZ 
0000 0008 ..THUS FOR THE ENERGY MAGNITUDE COMPUTATION YOU 
0000 0009 ..NEED TO REMULTIPLY BY N-26'S ACTUAL MAGNITUDE 
0000 0010 ..( 3.40005E-2 - #045A · 2..(#0000) 
0000 0011 - #45A2 · 2..(#FFFC) 
0000 0012 ................................................... 
0000 0013 
0000 0014 ORG #2EOO 
2EOO ; 0015 
2EOO 7 FFF ; 0016 ,I17FFF . .0 
2E02 7FFF; 0017 ,I17FFF 
2E04 7FFF; 0018 ,II7FFF 
2E06 7FFF; 0019 ,I17FFF 
2E08 7FFF; 0020 ,I17FFF 
2EOA 7FFF; 0021 ,I17FFF 
2EOC 7FFF; 0022 ,117FFF 
2EOE 7FFF; 0023 , fl7FFF 
2E10 7FFF; 0024 ,117FFF 
2E12 7FFF; 0025 ,I17FFF 
2E14 7FFF; 0026 ,I17FFF 
2E16 7FFF; 0027 , fl7FFF 
2El8 7 FFF; 0028 ,I17FFF 
2E1A 7FFF; 0029 ,#7FFF 
2E1C 7FFF; 0030 ,I17FFF 
2E1E 7FFF; 0031 ,117FFF 
2E20 7FFF; 0032 ,117 FFF ..16 
2E22 7FFF; 0033 ,#7FFF 
2E24 7FFF; 0034 ,II7FFF 
2E26 7FFF; 0035 ,II7FFF 
2E28 7FFF; 0036 ,tnFFF 
2E2A 7FFF; 0037 , fl7FFF 
2E2C 7FFF; 0038 ,fl7FFF 
2E2E 7FFF; 0039 ,fl7FFF 
2E30 7FFF; 0040 ,fI7FFF 
2E32 7FFF; 0041 , fl7FFF 
2E34 7FFF; 0042 , ff7FFF ..26 (NORMALIZE FACTOR) 
2E36 7860; 0043 ,117860 
2E38 71D2; 0044 ,1171D2 
2E3A 6C22; 0045 , fl6C22 
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2E3C 6727; 0046 ,116727 
2E3E 62CO; 0047 ,I162CO 
2E40 5E03; 0048 ,II5E03 ..32 
2E42 5B40; 0049 ,I15B40 
2E44 5810; 0050 ,115810 
2E46 5535; 0051 ,115535 
2E48 528C; 0052 ,I1528C 
2E4A 5018; 0053 ,fl5018 
2E4C 4002; 0054 , /14002 
2E4E 4BB5; 0055 ,I14BB5 
2E50 49BB; 0056 ,I149BB 
2E52 47E1; 0057 ,II47E1 
2E54 4622; 0058 ,114622 
2E56 4470; 0059 ,fl4470 
2E58 42EE; 0060 ,I142EE 
2E5A 4174; 0061 ,fl4174 
2E5C 4000; 0062 , /14000 
2E5E 3EB6; 0063 ,I13EB6 
2E60 306F; 0064 , fl306F ..48 
2E62 3C37; 0065 ,I13C37 
2E64 3BOB; 0066 ,I13BOB 
2E66 39EC; 0067 ,I139EC 
2E68 3809; 0068 , fl3 809 
2E6A 3700; 0069 ,113700 
2E6C 3601; 0070 ,I136D1 
2E6E 350C; 0071 ,I1350C 
2E70 34FO; 0072 , fl34FO 
2E72 340B; 0073 ,I1340B 
2E74 332F; 0074 ,I1332F 
2E76 325A; 0075 , fl325A 
2E78 318C; 0076 ,I1318C 
2E7A 30C5; 0077 ,I130C5 
2E7C 3004; 0078 , /13004 
2E7E 2F49; 0079 , fl2F49 
2E80 2E93; 0080 , fl2E93 ..64 
2E82 20E3; 0081 ,II20E3 
2E84 2038; 0082 , /12038 
2E86 2C93; 0083 , fl2C93 
2E88 2BF2; 0084 ,I12BF2 
2E8A 2B55; 0085 ,I12B55 
2E8C 2ABO; 0086 ,II2ABO 
2E8E 2A28; 0087 ,I12A28 
2E90 2998; 0088 ,112998 
2En 290C; 0089 ,II290C 
2E94 2883; 0090 ,112883 
2E96 27FE; 0091 ,fI27FE 
2E98 277C; 0092 ,11277C 
2E9A 26FE; 0093 ,II26FE 
2E9C 2682; 0094 ,112682 
2E9E 260A; 0095 ,I1260A 
2EAO 2594; 0096 ,112594 . .80 
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2EA2 2521; 0097 ,112521 
2EA4 24B1; 0098 ,1124B1 
2EA6 2444; 0099 ,112444 
2EA8 23D9; 0100 ,1123D9 
2EAA 2370; 0101 ,112370 
2EAC 230A; 0102 ,11230A 
2EAE 22A6; 0103 ,1I22A6 
2EBO 2244; 0104 , /12244 
2EB2 21E4; 0105 ,1121E4 
2EB4 2187; 0106 ,112187 
2EB6 212B; 0107 ,11212B 
2EB8 20D2; 0108 ,1120D2 
2EBA 207A; 0109 ,11207A 
2EBC 2024; 0110 , /12024 
2EBE 1FCF; 0111 ,1I1FCF 
2ECO 1F7D; 0112 ,/IlF7D ..96 
2EC2 lF2C; 0113 ,/I1F2C 
2EC4 1EDD; 0114 ,1I1EDD 
2EC6 1E8F; 0115 ,111E8F 
2EC8 1E42; 0116 ,1I1E42 
2ECA 1DF8; 0117 ,f11DF8 
2ECC 1DAE; 0118 , 111 DAE 
2ECE 1066; 0119 ,/I1D66 
2EDO 1D20; 0120 ,II1D20 
2ED2 1CDA; 0121 ,Ill CDA 
2ED4 1C96; 0122 , fllc96 
2ED6 1C53; 0123 ,tIlC53 
2ED8 lC11; 0124 ,/llc11 
2EDA 1BD1; 0125 ,/IlBDl 
2EDC 1B92; 0126 ,II1B92 
2EDE 1B53; 0127 ,Ill B53 
2EEO 1B16; 0128 ,1I1B16 ..112 
2EE2 lADA; 0129 ,111ADA 
2EE4 lA9F; 0130 ,f11A9F 
2EE6 lA65; 0131 ,II1A65 
2EE8 lA2C; 0132 , fl1A2C 
2EEA 19F4; 0133 ,/119F4 
2EEC 19BC; 0134 ,1I19BC 
2EEE 1986; 0135 ,111986 
2EFO 1951; 0136 ,111951 
2EF2 191C; 0137 ,/1191C 
2EF4 18E8; 0138 ,/118E8 
2EF6 18B5; 0139 , fl18B5 
2EF8 1883; 0140 , fl1883 
2EFA 1852; 0141 ,111852 
2EFC 1821; 0142 , fl1321 
2EFE 17Ft; 0143 ,fI17Fl 
2FOO 17C2; 0144 , fl17C2 ..128 
2F02 1794; 0145 ,fl1794 
2F04 1766; 0146 , fl1766 
21"06 1739; 0147 ,/11739 
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2F08 170D; 0148 ,1117 OD 
2FOA 16E1; 0149 ,I116E1 
2FOC 16B6; 0150 ,I116B6 
2FOE 168C; 0151 ,I1168C 
2FlO 1662; 0152 ,111662 
2Fl2 1639; 0153 ,111639 
2F14 1610; 0154 ,111610 
2Fl6 15E8; 0155 ,I115E8 
2F18 15CO; 0156 ,/115CO 
2FlA 1599; 0157 ,111599 
2FlC 1573; 0158 ,111573 
2FlE 154D; 0159 ,I1154D 
2F20 1528; 0160 ,111528 ..144 
2F22 1503; 0161 ,111503 
2F24 14DF; 0162 ,I114DF 
2F26 14BB; 0163 ,I114BB 
2F28 1497; 0164 ,111497 
2F2A 1474; 0165 ,111474 
2F2C 1452; 0166 ,111452 
2F2E 1430; 0167 ,111430 
2F30 140E; 0168 ,I1140E 
2F32 13ED; 0169 ,1113ED 
2F34 13CC; 0170 ,#13CC 
2F36 13AC; 0171 ,I113AC 
2F38 138C; 0172 ,I1138C 
2F3A 136D; 0173 ,I1136D 
2F3C 134D; 0174 ,#134D 
2F3E 132F; 0175 ,#132F 
2F40 1310; 0176 ,111310 ..160 
2F42 12F2; 0177 ,I112F2 
2F44 12DS; 0178 ,I112DS 
2F46 12B7; 0179 ,I112B7 
2F48 129B; 0180 ,I1129B 
2F4A 127E; 0181 ,I1127E 
2F4C 1262; 0182 ,1/1262 
2F4E 1246; 0183 ,111246 
2F50 122A; 0184 ,I1122A 
2F52 120F; 0185 ,I1120F 
2F54 11F4; 0186 ,IIllF4 
2FS6 11D9; 0187 ,1/11D9 
2F58 11BF; 0188 ,1111BF 
2F5A 11A5; 0189 ,1/11A5 
2F5C 118B; 0190 ,II118B 
2F5E 1172; 0191 ,1/1172 
2F60 1159; 0192 ,1/1159 ..176 
2F62 1140; 0193 ,1/1140 
2F64 1127; 0194 ,111127 
2F66 11OF; 0195 ,llllOF 
2F68 10F7; 0196 , f/lOF7 
2F6A 10DF; 0197 ,f/10DF 
2F6C lOC8; 0198 ,I/10C8 
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2F6E lOBO; 0199 ,I110BO 
2F70 1099 ; 0200 ,111099 
2F72 1083; 0201 ,111083 
2F74 106C; 0202 ,I1106C 
2F76 1056; 0203 ,111056 
2F78 1040; 0204 ,111040 
2F7A 102A; 0205 ,I1102A 
2F7C 1014; 0206 ,111014 
2F7E OFFF; 0207 ,I10FFF 
2F80 OFEA; 0208 ,I10FEA ..192 
2F82 OFD5; 0209 ,I10FD5 
2F84 OFCO; 0210 ,I10FCO 
2F86 OFAB; 0211 ,I10FAB 
2F88 OF97; 0212 ,I10F97 
2F8A OF83; 0213 ,I10F83 
2F8C OF6F; 0214 ,I10F6F 
2F8E OF5B; 0215 ,I10F5B 
2F90 OF48; 0216 ,I10F48 
2F92 OF35; 0217 ,I10F35 
2F94 OF21; 0218 ,#OF21 
2F96 OFOE; 0219 ,I10FOE 
2F98 OEFC; 0220 ,I10EFC 
2F9A OEE9; 0221 ,I10EE9 
2F9C OED7; 0222 ,I10ED7 
2F9E OEC4; 0223 ,I10EC4 
2FAO OEB2; 0224 ,I10EB2 . .208 
2FA2 OEA1; 0225 ,I10EA1 
2FA4 OE8F; 0226 ,I10E8F 
2FA6 OE7D; 0227 ,I10E7D 
2FA8 OE6C; 0228 ,I10E6C 
2FAA OE5B; 0229 ,I10E5B 
2FAC OE4A; 0230 ,#OE4A 
2FAE OE39; 0231 ,I10E39 
2FBO OE28; 0232 ,I10E28 
2FB2 OE17; 0233 ,I10E17 
2FB4 OE07; 0234 ,I10E07 
2FB6 ODF7; 0235 ,I10DF7 
2FB8 00E6; 0236 ,/lOOE6 
2FBA 00D6; 0237 ,/10006 
2FBC ODC7; 0238 ,/lODC7 
2FBE 00B7; 0239 ,/lODB7 
2FCO 00A7; 0240 ,/lODA7 . . 224 
2FC2 OD98; 0241 ,/lOD98 
2FC4 0088; 0242 ,/10088 
2FC6 OD79; 0243 ,/lOD79 
2FC8 006A; 0244 ,/1006A 
2FCA OD5B; 0245 ,/lOD5B 
2FCC 0040; 0246 ,/10040 
2FCE 003E; 0247 ,/1003E 
2FOO 002F; 0248 ,/1002F 
2F02 0021; 0249 ,/10021 
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2FD4 OD13; 
2FD6 OD04; 
2FD8 OCF6; 
2FDA OCE9; 
2FDC OCDB; 
2FDE OCCD; 
2FEO OCBF; 
2FE2 OCB2; 
2FE4 OCA5; 
2FE6 OC97; 
2FE8 OC8A; 
2FEA OC7D; 
2FEC OC70; 
2FEE OC63; 
2FFO OC57; 
2FF2 OC4A; 
2FF4 OC3D; 
2FF6 OC3l; 
2FF8 OC25; 
2FFA OC18; 
2FFC OCOC; 
2FFE OCOO; 
3000 ; 
3000 ; 


0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 


ASP FFT Program 
Program Code 


,1/0Dl3 
,#OD04 
,//OCF6 
,#OCE9 
,HOCDB 
,//OCCD 
,HOCBF . .240 
,HOCB2 
, flOCA5 
,#OC97 
,HOC8A 
,HOC7D 
,//OC70 
,HOC63 
,HOC57 
, HOC4A 
, flOC3D 
,HOC3l 
,HOC25 
,HOC18 
, flOCOC 
,HOCOO . .255 
..HHH//H###////####//#//H#//HHHH#HHH#//I///H//HH//////H//HI///H////#//H 
..END OF FIX740.SR 
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B.1 RUN TIME PROGRAMS 


B.1.1 SYSRUN (System Run) 


0000 
0000 
0000 


APPENDIX B 


RUN TIt-IE CODE 


0001 
0002 ..SYSRUN.SR 
0003 


7: 15 Pft 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 


21 JAN 80 


..HnHnH#nnHnHHn#HnnHHnnHHH#HnnHnHnHnnH#n#n########ú# 
..SYSRUN.SR SYSTEM RUN 


..THIS PROGRM1 STARTS AT LOCATION #7000 WITH P=O 
..IT SAVES THE SYSTEM REGISTERS 
..INITIALIZES THE PROGRAM REGISTERS 
..AND RUNS A SELECTED PROGRAM 


..THEN 

Y (BY SELECTION) EITHER 
1) BREAK FROM USER PROGRAM 
SAVE USER REGS 
RETURN SYSTEM REGS 
PRINT USER REGS 
RETURN TO 
IDNITOR 
..OR 2) BREAK FROM USER PROG
1 
SAVE USER REGS 
RETURN SYSTEM REGS 
RETURN TO MONITOR 
..OR 3) BREAK FROM USER PROGRAM 
SAVE USER REGS 
RETURN SYSTEM REGS 
PRINT USER MEMORY 
RETURN USER REGS 
RETURN TO USER PROGRAM 
..###########################################ú###### 
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Run Time Code 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 ; 
7000 C07018; 
7003 C07073; 
7006 C0707A; 
7009 , 
7009 C070F6; 
700C C070FE; 
700F C07106; 
7012 COHOE; 
7015 C07116; 
7018 
7018 
7018 
7018 ; 
7018 7100; 
701A ; 
701A ; 
701A F872B6; 
701D F85EA6; 
7020 9E5616; 
7023 
7023 , 
7023 F870B3; 
7026 F82AA3; 
7029 D3; 
702A ; 


0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 


..SYSTEM REGISTER NAMES 


PTER
#OO; SUB
H03 
CNTER
HOD; AUX
#OE; CHAR=HOF 


..EXTERNAL ROUTINUES 


START=H803F; DELAY1
H80EF; SYSLIN=H808D 
TYPE5D=H819C; TYPE2=#81AE; WRAM=H8COO 


..VECTORS TO INTERNAL 
ORG #7000 
LBR SYSRUN 
LBR RGPRNT 
LBR PRGDUN 


LBR RGDATA 
LBR FFTRAM 
LBR PFTDTA 
LBR SFTDTA 
LBR FFTDTA 


. . BEGIN HERE 
SYSRUN: 


DIS ,HOO 


ROUTINUES 


..SYSTEM RUN 
..REGISTER PRINT, QUIT 
..PROGRAM DONE SO QUIT 


..PRINT REGISTER DATA 
..PRINT FFT FRAM 
..PRINT P-FFT DATA 
..PRINT S-FFT DATA 
..PRINT FFT OUTPUT DATA 


..SYSTEM RUN 
..DISABLE INTERRUPTS 


..SAVE SYSTEM RE.1 
LDI A.1(INTBL); PHI R6 
LDI A.O(INTBL); PLO R6 
GHI RE; STR R6; INC R6 


..SET PC TO LOAD PROGRAM REGISTERS 
LDI A.1(LDPREG); PHI PC 
LDI A.O(LDPREG); PLO PC 
SEP PC 
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ASP FFT Program 
Run Time Code 
702A ; 0308 LDPREG: ..LOAD PROGRAM REGISTERS 
702A ; 0309 . . LOAD VARIABLE PROGRAM REGISTERS 
702A E6; 0310 SEX R6 
702B 72B072AO; 0311 LDXA ; PHI ZAP ; LDXA ; PLO ZAP 
702F 72B872A8; 0312 LDXA ; PHI FRP ; LDXA ; PLO FRP 
7033 72B972A9; 0313 LDXA ;PHI MP ;LDXA ;PLO MP 
7037 72BC72AC; 0314 LDXA ;PHI ZAPl;LDXA ;PLO ZAPI 
703B 72BA72AA; 0315 LDXA ;PHI ZAP2;LDXA ;PLO ZAP2 
703F 72BB72AB; 0316 LDXA ; PHI ZAP3; LDXA ;PLO ZAP3 
7043 72BD72AD; 0317 LDXA ;PHI MA ;LDXA ;PLO MA 
7047 72BE72AE; 0318 LDXA ; PHI MQ ;LDXA ;PLO MQ 
704B 72BF72AF; 0319 LDXA ;PHI AC ;LDXA ;PLO AC 
704F 0320 
704F ; 0321 ..NOW LOAD STATIC PROGRAM REGISTERS 
704F F800; 0322 LDI A.l(INTP) 
7051 Bl; 0323 PHI Rl 
7052 F850; 0324 LDI A.O(INTP) 
7054 AI; 0325 PLO Rl ..SET Rl AS INTP PC 
7055 F831; 0326 LDI A.1(STACK) 
7057 B2; 0327 PHI R2 
7058 F840; 0328 LDI A.O(STACK) 
705A A2; 0329 PLO R2 ..SET STACK POI
TER 
705B F800; 0330 LDI A.1(CALL) 
705D B4; 0331 PHI R4 
705E F833; 0332 LDI A.O(CALL) 
7060 A4; 0333 PLO R4 ..SET CALL ROUTINE PC 
7061 F800; 0334 LDI A.1(RETN) 
7063 B5; 0335 PHI R5 
7064 F843; 0336 LDI A.O(RETN) 
7066 A5; 0337 PLO R5 ..AND RETURN ROUTINE PC 
7067 F831; 0338 LDI A.1(DSTACK) 
7069 B7; 0339 PHI R7 
706A F880; 0340 LDI A.O(DSTACK) 
706C A7; 0341 PLO R7 ..SET DSTACK POINTER 
706D 0342 
706D ; 0343 ..GET GOING IN PROGRAM 
706D D40000; 0344 CALL 110000 ..CALL PROGRAM 
7070 0345 ..(OR LONG BRANCH, 
7070 0346 ..OR SEP TO ANOTHER REG) 
7070 0347 
7070 ; 0348 ..IF RETURN HERE (BY EXIT) QUIT TO HONITOR 
7070 C0707A; 0349 LBR PRGDUN ..GOTO PROGRAM DONE 
7073 0350 
7073 0351 
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7073 0352 ..************************************************** 
7073 0353 
7073 0354 RGPRNT: . .REGISTER PRINT 
7073 0355 . .ENTER HERE TO PRINT REGISTERS, THEN QUIT 
7073 0356 
7073 0357 . . CALL PRINT MEMORY 
7073 ; 0358 ..WITH ADDRESS AND LENGTH OF REGISTER OUTPUT TABLE 
7073 D4713D; 0359 CALL PRMEM 
7076 70EE; 0360 ,A(OUTDIR) 
7078 70F4; 0361 ,A(OUTDIR+6) ..TO POINT TO LENGTH 
707A 0362 
707A 0363 ..FALL THROUGH TO PROGRAM DONE 
707A 0364 
707A 0365 
707A 0366 ..************************************************** 
707A 0367 
707A 0368 PRGDUN: . . PROGRAM DONE 
707A 0369 . . THIS SAVES REGISTERS, THEN QUITS (TO MONITOR) 
707A 0370 
707A 0371 . . SAVE PROGRAM REGS (USE R1 AS POINTER) 
707A F873B1; 0372 LDI A.1(OUTTBL+31); PHI R1 
707D F8FFA1; 0373 LDI A.0(OUTTBL+31); PLO R1 
7080 E1; 0374 SEX R1 
7081 0375 
7081 0376 . . THEN STORE THEM 
7081 8F739F73; 0377 GLO RF ; STXD ;GHI RF ;STXD 
7085 8E739E73; 0378 GLO RE ; STXD ;GHI RE ;STXD 
7089 8D739D73; 0379 GLO RD ;STXD ;GHI RD ;STXD 
708D 8C739C73; 0380 GLO RC ;STXD ;GHI RC ;STXD 
7091 8B739B73; 0381 GLO RB ; STXD ;GHI RB ;STXD 
7095 8A739A73; 0382 GLO RA ;STXD ;GHI RA ;STXD 
7099 89739973; 0383 GLO R9 ; S TXD ;GHI R9 ; STXD 
709D 88739873; 0384 GLO R8 ; STXD ;GHI R8 ;STXD 
70A1 87739773; 0385 GLO R7 ;STXO ;GHI R7 ;STXD 
70A5 86739673; 0386 GLO R6 ;STXD ;GHI R6 ;STXD 
70A9 85739573; 0387 GLO R5 ; STXD ;GHI R5 ;STXO 
70AD 84739473; 0388 GLO R4 ; S TXD ;GHI R4 ;STXD 
70Bl 83739373; 0389 GLO R3 ;STXD ;GHI R3 ;STXD 
70B5 82739273; 0390 GLO R2 ;STXD ;GHI R2 ;STXD 
70B9 F8FF7373; 0391 LDI tiFF ; STXO ;STXO 
70BD 80739073; 0392 GLO RO ;STXD ;GHI RO ;STXD 
70Cl 0393 
70Cl 0394 .. ASSURE R3 IS PC 
70Cl F870B1; 0395 LDI A.l(PC3); PHI Rl 
70C4 F8C8Al; 0396 LOI A.0(PC3); PLO R1 
70C7 01; 0397 SEP R1 
70C8 F870B3; 0398 PC3: LDI A.l(SYSBCK); PHI PC 
70CB F8CFA3; 0399 LOI A.O(SYSBCK); PLO PC 
70CE D3; 0400 SEP PC 
70CF 0401 
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70CF ; 0402 
70CF F872B1; 0403 
70D2 F85EA1; 0404 
70D5 01BE; 0405 
70D7 0406 
70D7 0407 
70D7 0408 
70D7 E3; 0409 
70D8 F880BC; 0410 
70DB F8EFAC; 0411 
70DE F88CB2; 0412 
70E1 F800A2; 0413 
70E4 F880B5; 0414 
70E7 F83FA5; 0415 
70EA 6101; 0416 
70EC 7155; 0417 
70EE 0418 
70EE 0419 
70EE 0420 
70EE 0421 
70EE 73EO; 0422 
70FO 7401; 0423 
70F2 73EO; 0424 
70F4 0020; 0425 
70F6 0426 
70F6 0427 
70F6 0428 
70F6 0429 
70F6 0430 
70F6 0431 
70F6 0432 
70F6 0433 
70F6 0434 
70F6 0435 
70F6 0436 
70F6 0437 
70F6 0438 
70F6 0439 
70F6 0440 
70F6 0441 
70F6 0442 
70F6 0443 
70F6 D4 713D; 0444 
70F9 70EE; 0445 
70FB 70F4; 0446 
70FD D5; 0447 
70FE ; 0448 


ASP FFT Program 
Run Time Code 


..GET SYSTEM RE.1 BACK 
SYSBCK: LDI A.l(INTBL); PHI R1 
LDI A.O(INTBL); PLO R1 
LDN R1; PHI RE 


..NOW COpy GOUT20-ENTER 
..(FROM SYSTEM PROGRAM) 
SEX PC 
LDI A.1(DELAY1); PHI RC 
LDI A.0(DELAY1); PLO RC 
LDI A.1(WRAM); PHI R2 
LDI A.O(WRAM); PLO R2 
LDI A.1(START); PHI R5 
LDI A.O(START); PLO R5 
OUT 1,#01 ..SELECT RCA I/O GROUP 
DIS,#55 ..P=X=5 TO GOTO START 
. .DISABLED 


OUTDIR: 


..OUTGOING TABLE DIRECTORY 


,A(OUTTBL) 
,A(OUTTBL+33) 
,A(OUTTBL) 
,n0020 


..************************************************** 


..ENTRY POINTS FOR PRINTING MEMORY BLOCKS 
..REGISTER DATA, FFT FRAM, P-FFT OR S-FFT INPUT, 
OR FFT OUTPUT 


..USER PROGRAM DOES A CALL no## TO GET HERE 
. . THIS CALLS PRINT MEMORY 
..AND EXITS BACK TO USER PROGRAM 
..(IT MAY REQUIRE A HELPER SECTION TO MAKE UP 
.. FOR LOST CODE) 


..NOTE: P MUST BE 3 (PC) 


RGDATA: 


..PRINT REGISTER DATA 
..P MUST BE 3 (PC) 


CALL PRMEM 
,A(OUTDIR) 
,A(OUTDIR+6) 
EXIT 


..TO POINT TO LENGTH 
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70FE ; 0449 FFTRAM: ..PRINT FFT FRAH 
70FE D4713D; 0450 CALL PRMEM 
7101 712F; 0451 ,A(FRMDIR) 
7103 7135; 0452 ,A(FRMDIR+6) ..TO POINT TO LENGTH 
7105 D5; 0453 EXIT 
7106 0454 
7106 0455 PFTDTA: ..PRINT P-FFT INPUT DATA 
7106 D4713D; 0456 CALL PRMEM 
7109 30A5; 0457 ,A(YPTBL) 
710B 30CC; 0458 ,A(PFFTLN) 
710D D5; 0459 EXIT 
710E 0460 
710E ; 0461 SFTDTA: ..PRINT S-FFT INPUT DATA 
710E D4713D; 0462 CALL PRMEM 
7111 30AE; 0463 ,A(YSTBL) 
7113 30CE; 0464 ,A(SFFTLN) 
7115 D5; 0465 EXIT 
7116 0466 
7116 0467 FFTDTA: ..PRINT FFT OUTPUT DATA 
7116 ; 0468 ..PUT BASE ADDRESS INTO FFT OUTPUT DIRECTORY 
7116 F830B8; 0469 LDI A.l(BASE); PHI FRP 
7119 F8D8A8 ; 0470 LDI A.O(BASE); PLO FRP 
711C F871BB; 0471 LDI A.l(FFTDIR); PHI ZAP3 
711F F837AB; 0472 LDI A.O(FFTDIR); PLO ZAP3 
7122 485BIB; 0473 LDA FRP; STR ZAP3; INC ZAP3 
7125 485B; 0474 LDA FRP; STR ZAP3 
7127 ; 0475 
7127 ; 0476 ..THEN CALL PRINT MEMORY 
7127 D4713D; 0477 CALL PRMEM 
712A 7137; 0478 ,A(FFTDIR) 
712C 30DO; 0479 ,A(FFTLN) 
712E D5; 0480 EXIT 
712F 0481 
712F 0482 FRMDIR: ..FFT RAM DIRECTORY 
712F 30AO; 0483 ,//30AO 
7131 3100; 0484 ,A(FRAM+256) 
7133 30AO; 0485 , fl30AO 
7135 0060; 0486 ,110060 
7137 0487 
7137 ; 0488 FFTDIR: ..FFT OUTPUT DIRFCTORY 
7137 0000; 0489 ,110000 
7139 3E01; 0490 ,A(YSLWA+l) 
713B 3A01; 0491 ,A(YSFWA) 
713D 0492 
713D 0493 
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713D 
713D 
713D 
713D 
713D 
713D 
713D 
713D 
713D j 
713D 
713D j 
713D E37133j 
7140 
7140 j 
7140 F873B1j 
7143 F8FF Al j 
7146 E1 j 
7147 
7147 
7147 j 
7147 8F739F73j 
714B 8E739E73j 
714F 8D739D73j 
7153 8C739C73; 
7157 8B739B73; 
715B 8A739A73; 
715F 89739973j 
7163 88739873; 
7167 87739773 j 
716B 86FC0473; 
716F 967C0073j 
7173 85739573j 
7177 84739473 j 
717B 83739373; 
717F 82739273j 
7183 F8FF7373; 
7187 80739073j 
718B j 
718B j 
718B 46B9; 
718D 46A9; 
718F ; 
718F ; 
718F 46BA; 
7191 46AA; 
7193 
7193 
7193 
7195 
7197 
7197 


, 
49BO; 
49AOj 


0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 


ASP FFT Program 
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..************************************************** 


PRMEM: . .PRINT MEMORY BLOCK 
..THIS IS CALLED TO PRINT A BLOCK OF MEMORY 
..R6 IS AT START ADDRESS POINTER 
..AT R6+2 IS LENGTH POINTER 
..IT HANDLES WRAPAROUND 


..NOTE: P MUST BE 3 (PC) 


..DISABLE INTERRUPTS 
SEX PCj DIS ,#33 ..IE=O, X m 3, p=3 


..SAVE PROGRAM REGS (USE Rl AS POINTER) 
LDI A.1(OUTTBL+31)j PHI R1 
LDI A.0(OUTTBL+31)j PLO R1 
SEX R1 


..THEN STORE THEM 
..(STORE R6+4 FOR CORRECT RETURN POINT) 
GLO RF jSTXD jGHI RF jSTXD 
GLO RE jSTXD jGHI RE jSTXD 
GLO RD j STXD jGHI RD j STXD 
GLO RC jSTXD jGHI RC jSTXD 
GLO RB jSTXD ;GHI RB jSTXD 
GLO RA jSTXD ;GHI RA jSTXD 
GLO R9 jSTXD jGHI R9 ;STXD 
GLO R8 jSTXD jGHI R8 jSTXD 
GLO R7 jSTXD ;GHI R7 jSTXD 
GLO R6 jADI #04 jSTXD 
GHI R6 ;ADCI #00 ;STXD 
GLO R5 jSTXD jGHI R5 jSTXD 
GLO R4 ;STXD jGHI R4 jSTXD 
GLO R3 jSTXD ;GHI R3 jSTXD 
GLO R2 jSTXD jGHI R2 jSTXD 
LDI #FF jSTXD jSTXD 
GLO RO ;STXD jGHI RO jSTXD 


..MOVE @R6 -) R9 (DIRECTORY POINTER) 
LDA R6; PHI R9 
LDA R6; PLO R9 


..MOVE @R6 -) RA (LENGTH POINTER) 
LDA R6j PHI RA 
LDA R6j PLO RA 


..MOVE @R9 -) R(PTER) (START ADDRESS) 
LDA R9; PHI PTER 
LDA R9; PLO PTER 
. .LEAVE R9 AT LWA+1 VALUE 
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7197 
7197 
7199 
719B 
719B 
719B 
719E 
71A1 
71A3 
71A3 
71A3 . 
71A3 E3; 
71A4 F880BC; 
71A7 F8EFAC; 
71AA F88CB2; 
71AD F800A2; 
71BO F871B5; 
71B3 F8BAA5; 
71B6 6101; 
71B8 7155; 
71 BA ; 
71BA ; 
71 BA ; 
71BA F881B3; 
71BD F89CA3; 
71CO ; 
71CO ; 
71CO D30D; 
71C2 D30A; 
71C4 D30A; 
71C6 
71C6 
71C6 . 
71C6 D30D; 
71C8 D30A; 
71 CA ; 
71 CA ; 
71CA 90BF; 
71CC F8AEA3; 
71CF D3; 
71 DO ; 
71DO ; 
71DO 80BF; 
71D2 F8AEA3; 
71D5 D3; 
7lD6 
7lD6 
7lD6 D320; 
71D8 


. 
4ABD; 
4AAD; 


. 
F872B1; 
F85EA1 ; 
01BE; 


..MOVE @RA -) R(CNTER) (LENGTH VALUE) 
LDA RA; PHI CNTER 
LDA RA; PLO CNTER 


0545 
0546 
0547 
0548 
0549 . .GET 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 . .TYPE 
0572 
0573 
0574 
0575 
0576 LNOUT: 
0577 . .TYPE 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 TSPACE: 
0592 
0593 


SYS TEM RE. 1 BACK 
LDI A.1(INTBL); 
LDI A.O(INTBL); 
LDN R1; PHI RE 


PHI R1 
PLO R1 


..NOW COPY GOUT20-ENTER 
..(FROM SYSTEM PROGRAM) 
SEX PC 
LDI A.1(DELAY1); PHI RC 
LDI A.0(DELAY1); PLO RC 
LDI A.1(WRAM); PHI R2 
LDI A.O(WRAM); PLO R2 
LDI A.1(SUBPTR); PHI R5 
LDI A.O(SUBPTR); PLO R5 
OUT 1.#01 ..SELECT RCA I/O GROUP 
DIS.#55 ..pmXm5 TO GOTO SUB POINTER 
. .DISABLED 


..SET UP SUBROUTlNUE POINTER 
SUBPTR: LDI A.1(TYPE5D); PHI SUB 
LDI A.0(TYPE5D); PLO SUB 


CR/LF/LF 
SEP SUB; 
SEP SUB; 
SEP SUB; 


.#OD 
.#OA 
.#OA 


. . HOD m CR 
. . #OA m LF 


. .LINE OUT 
CARRIAGE RETURN & LINE FEED 
SEP SUB; .#OD ..#OD m CR 
SEP SUB; .#OA ..DOA m LF 


..OUTPUT HIGH ADDRESS 
GHI PTER; PHI CHAR 
LDI A.0(TYPE2); PLO SUB 
SEP SUB 


..OUTPUT LOW ADDRESS 
GLO PTER; PHI CHAR 
LDI A.0(TYPE2); PLO SUB 
SEP SUB 


SEP SUB; ./120 


..TYPE SPACE 
. ./120 = SPACE 
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71D8 
71D8 ; 
71D8 40BF; 
71DA F8AEA3; 
71DD D3; 
71DE ; 
71DE ; 
71DE 2D; 
71DF 8DCA71E7; 
71E3 9DC2720C; 
71E7 ; 
71E7 ; 
71E7 E9; 
71E8 1980F7; 
71EB 299077; 
71EE CB71FA; 
71Ft 
71Ft 
71Ft , 
71Ft 1919; 
71F3 49BO; 
71F5 09AO; 
71F7 292929; 
71FA ; 
71FA ; 
71FA ; 
71FA 8DFAOF; 
71FD CA7205; 
7200 D33B; 
7202 C071C6; 
7205 
7205 
7205 ; 
7205 F6; 
7206 C371D8; 
7209 C071D6; 
720C ; 
720C ; 


0594 TLOOP: ..TYPE LOOP 
0595 ..FETCH ONE BYTE FOR TYPING 
0596 LDA PTER; PHI CHAR 
0597 LDI A.0(TYPE2); PLO SUB 
0598 SEP SUB ..TYPE 2 HEX DIGITS 
0599 
0600 
0601 
0602 
0603 
0604 
0605 LWACHK: 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 LNCHK: . .LINE CHECK 
0619 ..SEE IF R(CNTER) DIV BY 16 
0620 GLO CNTER; ANI #OF ..CHECK #XO 
0621 LBNZ WRDCHK 
0622 SEP SUB; t#3B ..#3B - '1," 
0623 LBR LNOUT 
0624 
0625 WRDCHK: 
0626 ..SEE IF R(PTER) DIV BY 
0627 SHR 
0628 LBDF TLùOP 
0629 LBR TSPACE 
0630 
0631 


..CHECK FOR DONE 
DEC CNTER 
GLO CNTER; 
GHI CNTER; 


LBNZ LWACHK 
LBZ EXPRMM 


..FIFO LWA+1 CHECK 


SEX R9 
INC R9; GLO PTER; SM 
DEC R9; GHI PTER; 5MB 
LBNF LNCHK ..IF PTER < LWA+1 
..THEN GOTO LINE 


..ELSE PTER 
> LWA+1, RESET TO 
INC R9; INC R9 
LDA R9; PHI PTER 
LDN R9; PLO PTER 
DEC R9; DEC R9; DEC R9 


FWA 
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CHECK 


. . WORD CHECK 
2 
..CHECK LOW BIT 
..IF NOT 0, OUT NEXT 
..ELSE 1, OUT SPACE 
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720C 0632 -------------------------------------------------- 
720C 0633 EXPRMM: ..EXIT PRINT MEUORY 
720C 0634 ..RESTORE PROGRAM REGS, THEN SKIP BACK TO USER PRGM 
720C 0635 
720C 0636 ..GET R3 AS PC 
720C F872B3 ; 0637 LOI A.l(PCIS3); PHI PC 
720F F813A3; 0638 LOI A.0(PCIS3); PLO PC 
7212 03; 0639 SEP PC 
7213 0640 
7213 0641 PCIS3: ..PC IS 3 
7213 0642 ..RESTORE PROGRAM REGS 
7213 ; 0643 ..GET Rl TO OUTTBL 
7213 F873Bl; 0644 LOI A.l(OUTTBL); PHI Rl 
7216 F8EOA1; 0645 LOI A.O(OUTTBL); PLO Rl 
7219 0646 
7219 ; 0647 . .RESTORE THEM 
7219 41B041AO; 0648 LOA Rl; PHI RO; LOA Rl; PLO RO 
7210 4141; 0649 LOA Rl; LOA Rl 
721F 41B241A2; 0650 LOA Rl; PHI R2; LOA Rl; PLO R2 
7223 4141; 0651 LOA Rl; LOA Rl 
7225 41B441A4; 0652 LOA Rl; PHI R4; LOA Rl; PLO R4 
7229 41B541A5; 0653 LOA Rl; PHI R5; LOA Rl; PLO R5 
7220 41B641A6; 0654 LOA Rl; PHI R6; LOA Rl; PLO R6 
7231 41B741A7; 0655 LOA Rl; PHI R7; LOA Rl; PLO R7 
7235 41B841A8; 0656 LOA Rl; PHI R8; LOA R 1 ; PLO R8 
7239 41B941A9; 0657 LOA Rl; PHI R9; LOA Rl; PLO R9 
7230 41BA41AA; 0658 LOA Rl; PHI RA; LOA Rl; PLO RA 
7241 41BB41AB; 0659 LOA R 1 ; PHI RB; LOA Rl; PLO RB 
7245 41BC41AC; 0660 LOA Rl; PHI RC; LOA Rl; PLO RC 
7249 41B041AO; 0661 LOA Rl; PHI RO; LOA Rl; PLO RO 
7240 41BE41AE; 0662 LOA Rl; PHI RE; LOA Rl; PLO RE 
7251 41BF41AF; 0663 LOA Rl; PHI RF; LOA Rl; PLO RF 
7255 0664 
7255 ; 0665 ..RESTORE Rl 
7255 F800Bl; 0666 LOI A.l(INTP); PHI Rl 
7258 F850Al; 0667 LOI A.O(INTP); PLO Rl 
725B 0668 
725B ; 0669 ..ENABLE INTERRUPTS ANO RETURN TO USER PROGRAM 
725B E37035; 0670 SEX PC; RET ,1/35 ..IE=O, X:a3, p:a5 
725E 0671 
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725E 
725E 
725E 
725E 
725E 00; 
725F 0000; 
7261 3000; 
7263 0000; 
7265 0000; 
7267 0000; 
7269 0000; 
726B 0000; 
726D 0000; 
726F 0000; 
7271 
7271 
73EO ; 
73EO 0000; 
73E2 0000; 
73E4 0000; 
73E6 0000; 
73E8 0000; 
73EA 0000; 
73EC 0000; 
73EE 0000; 
73FO 0000; 
73F2 0000; 
73F4 0000; 
73F6 0000; 
13F8 0000; 
73FA 0000; 
73FC 0000; 
73FE 0000; 
7400 
7400 
7400 ; 


0672 ..************************************************** 
0673 ..TABLES 
0674 
0675 INTBL: 
0676 ,1100 
0677 ,110000 
0678 ,113000 
0679 ,110000 
0680 ,110000 
0681 ,110000 
0682 ,110000 
0683 ,110000 
0684 ,110000 
0685 ,110000 
0686 
0687 
0688 OUTTBL: 
0689 ,10000 
0690 ,110000 
0691 ,110000 
0692 ,110000 
0693 ,110000 
0694 ,110000 
0695 ,110000 
0696 ,110000 
0697 ,110000 
0698 ,110000 
0699 ,110000 
0700 ,110000 
0701 ,110000 
0702 ,110000 
0703 ,110000 
0704 ,110000 
0705 
0706 
0707 DONE: 


..SYSTEM RE.1 
. .PROGRAM ZAP 
..PROGRAM FRP 
. . PROGRAM MP 
. . PROGRAM ZAP 1 
. .PROGRAM ZAP2 
. . PROGRAM ZAP 3 
. . PROGRAM MA 
..PROGRAM MQ 
. . PROGRAM AC 


ORG 1173EO 


. .PROGRAM RO 
..PROGRAM R1 
. .PROGRAM R2 
. . PROGRAM R3 
..PROGRAM R4 
. . PROGRAM R5 
. .PROGRAM R6 
..PROGRAM R7 
. . PROGRAM R8 
. . PROGRAM R9 
..PROGRAM RA 
. . PROGRAM RB 
. .PROGRAM RC 
..PROGRAM RD 
. .PROGRAM RE 
. . PROGRAM RF 


END 
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..INGOING REG TABLE 


(SET TO FRAM) 


..OUTCOMING REG TABLE 
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B.1.2 LDFIFO (Load FIFO) 


0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
5100 COS10C; 
5103 COS12F; 
5106 COS1S2; 
5109 COS1DS; 
S10C 
SlOC 
SlOC 
S10C 
S10C 


0101 
0102 ..8888888#888888#8##8888#8888#888#888##8####888##### 
0103 ..LDFIFO.SR LOAD FIFO 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 ..EXTERNAL ROUTINUES 
0115 
0116 
0117 
0118 
0119 ...VECTORS TO INTERNAL ROUTINUES 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 ..BEGIN HERE 
0129 
0130 


0001 
0002 ..LDFIFO.SR 
0003 


21 OCT 79 


4:00 PM 


..THERE ARE 4 FORMS TO THIS ROUTINUE 
1) ZERO YPFIFO. 
2) ZERO YSFIFO. 
3) HANUAL INPUT. AND 
4) MODIFIED SINE 
..AS DESCRIBED BELOW 
..888###8#8888#88#8#88888888#888888888#88#88#88#8### 


GOUT20-883F9 


ORG 85100 
LBR YPZERO 
LBR YSZERO 
LBR MANINP 
LBR MODS IN 
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..VECTOR TO ENTER UTILITY 


. .ZERO YPFIFO 
. .ZERO YSFIFO 
. .MANUAL INPUT 
. .MODIFIED SINE 



ASP FFT Program 
Run Time Code 


..############88##0####0##########8############U#U## 
..YPZERO.SR ZERO YPFIFO 
..U#U###U#######U####U##U#######'U###U#,#U#####U###U 


510C 
510C 
510C 
510C 
510C ; 
510C 7100; 
510E F851; 
5UO B3; 
51U F815; 
5U3 A3; 
5U4 D3; 
5U5 ; 
5U5 F83A; 
5U7 BB; 
5118 F800; 
5UA AB; 
511B EB; 
5UC ; 
5UC ; 
511C F800; 
5UE 73; 
511F 73; 
5120 ; 
5120 ; 
5120 8B; 
5121 FDOO; 
5123 CB511C; 
5126 9B; 
5127 7D36; 
5129 CB511C; 
512C ; 
512C C083F9; 
512F 
512F 
512F 


0131 
0132 
0133 
0134 
0135 
0136 YPZERO: 
0137 
0138 
0139 
0140 
0141 
0142 
0143 YPSTRT: 
0144 
0145 
0146 
0147 
0148 
0149 PTZROP: 
0150 
0151 
0152 
0153 
0154 DNPZRO: 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 


DIS ,/100 
LDI A.1(YPSTRT) 
PHI PC 
LDI A.O(YPSTRT) 
PLO PC 
SEP PC 


..INITIALIZE 


LDI A.1 (YPLWA) 
PHI ZAP3 
LDI A.O(YPLWA) 
PLO ZAP3 
SEX ZAP3 


..R(ZAP3) m LAST ADDRESS 


..PUT ZERO INTO YPFIFO 


LDI #00 
STXD 
STXD 


..FIRST ADDRESS CHECK 


GLO ZAP3 
SDI A.0(YPFWA-1) 
LBNF PTZROP 
GHI ZAP3 
SDBI A.1(YPFWA-1) 
LBNF PTZROP 


LBR GOUT20 


..JUMP OUT IF DONE 
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512F 0166 ..#################################################0 
512F 0167 ..YSZERO.SR ZERO YSFIFO 
512F 0168 ..###O###O######O####U####O########################O 
512F 0169 
512F ; 0170 
512F 7100; 0171 YSZERO: DIS ,#00 ..INITIALIZE 
5131 F851; 0172 LDI A.l(YSSTRT) 
5133 B3; 0173 PHI PC 
5134 F838; 0174 LDI A.O(YSSTRT) 
5136 A3; 0175 PLO PC 
5137 D3; 0176 SEP PC 
5138 ; 0177 
5138 F83E; 0178 YSSTRT: LDI A.1(YSLWA) 
513A BB; 0179 PHI ZAP3 
513B F800; 0180 LDI A.O(YSLWA) 
513D AB; 0181 PLO ZAP3 ..R(ZAP3) m LAST ADDRESS 
513E EB; 0182 SEX ZAP3 
513F ; 0183 
513F ; 0184 PTZROS: ..PUT ZERO INTO YSFIFO 
513F F800; 0185 LDI fioo 
5141 73; 0186 STXD 
5142 73; 0187 STXD 
5143 ; 0188 
5143 ; 0189 DNSZRO: ..FIRST ADDRESS CHECK 
5143 8B; 0190 GLO ZAP3 
5144 FDOO; 0191 SDI A.0(YSFWA-1) 
5146 CB513F; 0192 LBNF PTZROS 
5149 9B; 0193 GHI ZAP3 
514A 7D3A; 0194 SDBI A.1(YSFWA-1) 
514C CB513F; 0195 LBNF PTZROS 
514F ; 0196 
514F C083F9; 0197 LBR GOUT20 ..JUMP OUT IF DONE 
5152 0198 
5152 0199 
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5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 
5152 7100; 
5154 F851; 
5156 B3; 
5157 F85B; 
5159 A3; 
515A D3; 
515B 
515B ; 
515B ; 
515B F852; 
515D B2; 
515E F832; 
5160 A2; 
5161 
5161 , 
5161 E2; 
5162 72; 
5163 BD; 
5164 72; 
5165 AD; 
5166 


0200 ..###############################8################## 
0201 ..

NINP.SR ..MANUAL INPUT 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 . .THEN 
0214 
0215 
0216 
0217 
0218 
0219 . .OR 
0220 
0221 
0222 
0223 
0224 
0225 ..ENTER HERE 
0226 MANINP: 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 ..GET R2 TO TABLE1 
0235 MNSTRT: 
0236 
0237 
0238 
0239 
0240 
0241 . .LOAD 
0242 
0243 
0244 
0245 
0246 
0247 


..TO RUN THIS, ENTER INTO TABLE 1 
1. START ADDRESS 
2. A. LWA+1, FWA POINTER LOCATION 
EITHER ,A(PTBL1) FOR YPFIFO 
OR ,A(STBL1) FOR YSFIFO 
B. INITIAL VALUE 
C. LENGTH OF BLOCK * 2 
(#0400 m 512, #0020 m 16, ETC.) 
D. INCREMENT/DECREMENT VALUE 
(MAY BE #8000 TO #7FFF, INCL 


110000 ) 


3. A. 


NEXT BLOCK'S INITIAL VALUE 
(OR NOP PROGRAM TO USE OLD VALUE) 
NEXT BLOCK'S LENGTH 
NEXT BLOCK'S INC/DEC VALUE 


B. 
C. 
ETC. 


4. ENTER #ABXX TO STOP 
(WHERE XX ARE DON'T CARES) 
..8#8########8########8############8#8####8######### 


DIS ,100 
LDI A.1(HNSTRT) 
PHI PC 
LDr A.O(MNSTRT) 
PLO PC 
SEP PC 


. . MANUAL INPUT 
..INITIALIZE 


. .MANUAL START 


LDI A.1(TABLE1) 
PHI R2 
LDI A.O(TABLEl) 
PLO R2 


START ADDRESS 
SEX R2 
LDXA 
PHI MA 
LDXA 
PLO MA 


I
TO R(MA) 
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5166 
5166 72; 
5167 BC; 
5168 72; 
5169 AC; 
516A ; 
516A ; 
516A 72; 
516B BF; 
516C 72; 
516D AF; 
516E 
516E 
516E 
516E 
516E EC; 
516F 1C; 
5170 8D; 
5171 F5; 
5172 AA; 
5173 2C; 
5174 9D; 
5175 75; 
5176 BA; 
5177 
5177 
5177 E2; 
5178 12; 
5179 8A; 
517A F5; 
517B 22; 
5l7C 9A; 
517D 75; 
517E C35187; 
5181 
5181 
5181 
5181 
5183 
5184 
5187 
5187 
5187 , 
5187 F800; 
5189 BB; 
518A ; 


, 
F8FF; 
BB; 
C0518A; 


0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 


..LOAD LWA+1, FWA POINTER INTO R(ZAP1) 
LDXA 
PHI ZAP1 
LDXA 
PLO ZAP 1 


..LOAD INITIAL VALUE INTO R(AC) 
LDXA 
PHI AC 
LDXA 
PLO AC 
..LEAVE R2 AT BLOCK LENGTH 


..GET FREE LENGTH INTO R(ZAP2) 
..(FREE LENGTH m BOUNDARY - START ADDRESS 
INFRLN: SEX ZAP1 
INC ZAP1 
GLO MA 
SD 
PLO ZAP 2 
DEC ZAP1 
GHI MA 
SDB 
PHI ZAP2 


..CHECK FOR BOUNDARY OK 
SEX R2 
INC R2 
GLO ZAP2 
SD 
DEC R2 
GHI ZAP2 
SDB 
LBDF BDRYBD ..IF BLOCK> FREE 
..BOUNDARY BAD 


..BOUNDARY GOOD, STORE TRUE (#FF) INTO R(ZAP3.H) 
LDI IIFF 
PHI ZAP3 
LBR INPBLN 


BDRYBD: ..BOUNDARY BAD 
..STORE FALSE (1100) INTO R(ZAP3.H) 
LDI 1100 
PHI ZAP3 
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518A ; 0294 INPBLN: ..INPUT BLOCK LENGTH 
518A ; 0295 ..GET BLOCK LENGTH INTO R(MP) 
518A 72; 0296 LDXA 
518B B9; 0297 PHI MP 
518C 72; 0298 LDXA 
518D A9; 0299 PLO MP 
518E 0300 . .LEAVE R2 AT INC/DEC VALUE 
518E 0301 
518E 0302 STRVLU: ..STORE VALUE 
518E ; 0303 ..STORE R{AC) AT M(R(MA)) 
518E 9F; 0304 GHI AC 
518F 5D; 0305 STR MA 
5190 1D; 0306 INC MA 
5191 8F; 0307 GLO AC 
5192 5D; 0308 STR MA 
5193 1D; 0309 INC MA 
5194 ; 0310 
5194 ; 0311 ..INC/DEC R(AC) 
5194 E2; 0312 SEX R2 
5195 12; 0313 INC R2 
5196 8F; 0314 GLO AC 
5197 F4; 0315 ADD 
5198 AF; 0316 PLO AC 
5199 22; 0317 DEC R2 
519A 9F; 0318 GHI AC 
519B 74; 0319 ADC 
519C BF; 0320 PHI AC 
519D 0321 
519D 0322 ..CHECK FOR WRAPAROUND 
519D ; 0323 ..CHECK BOUNDARY OK FLAG, IF TRUE THEN SKIP 
519D 9B; 0324 GHI ZAP3 
519E CA51B8; 0325 LBNZ BLKCHK . . TO BLOCK CHECK 
51A1 0326 
51Al ; 0327 ..ELSE DECREMENT FREE LENGTH, CHECK FOR 1100 
51Al 2A; 0328 DEC ZAP2 
51A2 2A; 0329 DEC ZAP2 
51A3 8A; 0330 GLO ZAP2 
51A4 CA51B8; 0331 LBNZ BLKCHK . .TO BLOCK CHECK 
5lA7 9A; 0332 GHI ZAP2 
51A8 CASIB8; 0333 LBNZ BLKCHK .. TO BLOCK CHECK 
51AB 0334 
51AB 0335 ..DOWN TO #00, SET R(MA) TO FIFO FWA 
51AB lC; 0336 INC ZAP 1 
51AC lC; 0337 INC ZAPI 
51AD EC; 0338 SEX ZAP 1 
51AE 72; 0339 LDXA 
5lAF BD; 0340 PHI MA 
51BO FO; 0341 LDX 
51Bl AD; 0342 PLO MA 
51B2 ; 0343 
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51B2 , 
51B2 2C; 
51B3 2C; 
51B4 2C; 
51B5 
51B5 
51B5 
51B7 
51B8 
51B8 
51B8 , 
51B8 29; 
51B9 29; 
51BA 89; 
5lBB CAS18E; 
51BE 99; 
51BF CA518E; 
51C2 
51C2 
51C2 , 
51C2 12; 
51C3 12; 
51C4 
51C4 , 
51C4 E2; 
51C5 FO; 
51C6 FFAB; 
51C8 C251D2; 
51CB ; 
51CB ; 
51CB 72; 
51CC BF; 
51CD 72; 
51CE AF; 
5lCF ; 
51CF ; 
51CF C05l6E; 
51D2 
51D2 , 
5lD2 C083F9; 
51D5 
51D5 


, 
F8FF; 
BB; 


0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 


..AND RETURN R(ZAP1) TO FIFO LWA+l 
DEC ZAPl 
DEC ZAP 1 
DEC ZAP 1 


..SET BOUNDARY OK FLAG TRUE 
LDI flFF 
PHI ZAP3 


BLKCHK: ..BLOCK CHECK 
..DECREMENT BLOCK LENGTH COUNT, CHECK FOR ZERO 
DEC MP 
DEC MP 
GLO MP 
LBNZ STRVLU ..TO STORE VALUE 
GHI MP 
LBNZ STRVLU ..TO STORE VALUE 


..ELSE, NEW BLOCK 
..GET R2 TO NEXT INPUT VALUE 
INC R2 
INC R2 


..IF flAB, THEN DONE 
SEX R2 
LDX 
SMI flAB 
LBZ ENDl 


..TO END 


..ELSE, PUT INTO R(AC) 
LDXA 
PHI AC ..NOP (flC4) THIS 
LDXA 
PLO AC ..AND THIS FOR OLD VALUE 


..GOTO INPUT NEW FREE LENGTH 
LBR INFRLN 


ENOl : 


..END OF MANUAL INPUT 


LBR GOUT20 
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51D5 ; 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 
51D5 , 
51D5 7100; 
51D7 F851; 
51D9 B3; 
51DA F8DE; 
51DC A3; 
51DD D3; 
51DE 
51DE ; 
51DE ; 
51DE F852; 
51EO B2; 
51El F826; 
51E3 A2; 
51E4 
51E4 , 
51E4 E2; 
51E5 72; 
51E6 BC; 
51E7 72; 
51E8 AC; 
51E9 
51E9 
51E9 
51E9 EC; 
51EA 72; 
51EB BD; 
51EC 72; 
51ED AD; 
51EE 
51 EE ; 


0386 ..#########1######################################## 
0387 ..rIDDSIN.SR MODIFIED SINE WAVE 
0388 
0389 
0390 
0391 
0392 
0393 
0394 ..ENTER INTO TABLEl 
0395 ..FWA, LWA+l POINTER, 
0396 
0397 
0398 
0399 
0400 
0401 ..ENTER HERE 
0402 MODS IN: 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 ..GET R2 TO TABLE2 
0411 MSSTRT: 
0412 
0413 
0414 
0415 
0416 
0417 . .LOAD 
0418 
0419 
0420 
0421 
0422 
0423 . .LEAVE 
0424 
0425 . .LOAD 
0426 
0427 
0428 
0429 
0430 
0431 
0432 


..THIS PROGRAM MOVES THE SINE WAVE AT #4000 - 
..TO A CHOSEN OUTPUT FIFO WITH A SELECTED 
..FREQUENCY SCALING 
..(VIA SKIPPING TRANSFERRED VALUES) 


#4lFE 


EITHER ,A(YPTBL2) FOR YPFIFO 
OR ,A(YSTBL2) FOR YSFIFO 
..SKIP VALUE * 2 (#0002, #0004, #0006, ...) 
..##################################0############### 


FIFO FWA INTO 
SEX ZAPI 
LDXA 
PHI MA 
LDXA 
PLO MA 
..AND LEAVE R(ZAPl) 


DIS ,#00 
LDI A.l(MSSTRT) 
PHI PC 
LDI A.O(MSSTRT) 
PLO PC 
SEP PC 


..MODIFIED SINE WAVE 
..INITIALIZE 


. .MANUAL SINE START 


LDI A.l(TABLE2) 
PHI R2 
LDI A.0(TABLE2) 
PLO R2 


FIFO POINTER INTO R(ZAP1) 
SEX R2 
LDXA 
PHI ZAPl 
LDXA 
PLO ZAPl 
R2 AT INCREMENT VALUE 


R(MA) 


AT FIFO LWA+l 
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51EE ; 
51EE F840; 
51FO B9; 
51Ft F800; 
51F3 A9; 
51F4 ; 
51F4 ; 
51F4 E9; 
51F5 72; 
51F6 5D; 
51F7 lD; 
51F8 FO; 
51F9 5D; 
51FA lD; 
51FB 29; 
51FC ; 
51FC 
51FC ; 
51FC EC; 
51FD lC; 
51FE 8D; 
51FF F7; 
5200 2C; 
5201 9D; 
5202 77; 
5203 C3521B; 
5206 
5206 
5206 E2; 
5207 12; 
5208 89; 
5209 F4; 
520A A9; 
520B 22; 
520C 99; 
520D 74; 
520E B9; 
520F 
520F ; 
520F 99; 
5210 FF42; 
5212 
5212 
5212 CB51F4; 
5215 
5215 , 
5215 F840; 
5217 89; 
5218 


0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 


..GET R(MP) TO SINE FWA 
LDI A.l(SINFWA) 
PHI MP 
LDI A.O(SINFWA) 
PLO MP 


..PASS FROM M(R(MP)) TO M(R(MA)) 
PASS: SEX MP 
LDXA 
STR MA 
INC MA 
LDX 
STR MA 
INC MA 
DEC MP 
..AND LEAVE R(MP) WHERE IT WAS 


..CHECK FOR FIFO POINTER TO END 
SEX ZAPl 
INC ZAPl 
GLO MA 
SM 
DEC ZAPl 
GHI MA 
5MB 
LBDF END2 ..IF PTR > BDRY, DONE 


..ELSE, INCREMENT SINE POINTER 
SEX R2 
INC R2 
GLO MP 
ADD 
PLO MP 
DEC R2 
GHI MP 
ADC 
PHI MP 


..CHECK FOR SINE POINTER OFF END 
GHI MP 
SMI A.l(SINLWA+2) 


..IF POINTER < BOUNDARY, THEN PASS AGAIN 
LBNF PASS 


..ELSE. RESET SINE POINTER 
LDI A.1(SINFWA) 
PHI MP 
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5218 0482 ..THEN PASS AGAIN 
5218 C051F4; 0483 LBR PASS 
521B ; 0484 
521B ; 0485 END2: ..END OF MODIFIED SINE 
521B C083F9; 0486 LBR GOUT20 
521E 0487 
521E 0488 
521E 0489 ..##############################################8### 
521E 0490 ..HERE ARE THE TABLES 
521E 0491 
521E 3601; 0492 PTBL2: .A(YPFWA) 
5220 3AOl; 0493 ,A(YPLWA+l) 
5222 3AOl; 0494 STBL2: ,A(YSFWA) 
5224 3EOl; 0495 ,A(YSLWA+l ) 
5226 0000; 0496 TABLE2: ,#0000 . . FIFO POINTER 
5228 0000; 0497 ,#0000 ..SKIP VALUE 
522A 0498 
522A ; 0499 ..************************************************** 
522A ; 0500 
522A 3AOl; 0501 PTBLI : ,A(YPLWA+l) 
522C 3601; 0502 ,A(YPFWA) 
522E 3E01; 0503 STBLl: ,A(YSLWA+1) 
5230 3AOl; 0504 ,A(YSFWA) 
5232 0000; 0505 TABLE 1: ,#0000 ..START ADDRESS 
5234 0000; 0506 ,#0000 ..LWA+1, FWA POINTER 
5236 0000; 0507 ,#0000 ..INITIAL VALUE 
5238 0000; 0508 ,#0000 ..BLOCK LENGTH 
523A 0000; 0509 ,#0000 ..INC/DEC VALUE 
523C ; 0510 
523C 0000; 0511 ,#0000 ..NEXT INITIAL VALUE 
523E 0000; 0512 ,#0000 ..NEXT BLOCK LENGTH 
5240 0000; 0513 ,#0000 . . NEXT INC/DEC VALUE 
5242 0514 ..ETC. 
5242 0515 
5242 0000; 0516 ,#0000 . .UNTIL #ABXX 
5244 0517 
5244 0518 
5244 0519 ..############8#8################################### 
5244 0520 . . END OF LDFIFO 
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B.L3 FFT COMPLETE TRACE 
0000 0001 
0000 0002 
0000 0003 
0000 0004 
0000 0005 
0000 0006 
0000 0007 
0000 0008 
0000 0009 
0000 ; 0010 
3046 11110000 ; 0011 
304A 0012 
304A 0013 
304A 0014 
304A ; 0015 
3062 0001 ; 0016 
3064 0017 
3064 0018 
3064 ; 0019 
51D2 C0701A; 0020 
51D5 . 0021 
, 
521B C0701A; 0022 
521E 0023 
5232 3601522A; 0024 
5236 7FFFOO040000; 0025 
523C 000003000000; 0026 
5242 ABAB; 0027 
5244 0028 
5226 521E0020; 0029 
522A ; 0030 
522A ; 0031 
522A ; 0032 
522A ; 0033 
706D C00600; 0034 
7070 0035 
7070 0036 
7070 0037 


..FFT COMPLETE TRACE.SR 5 MARCH 80 


2:10 PM 


ZAP
#OO; PC=#03; FRP
#08; MP
#09 
ZAP2
#OA; ZAP3
#OB; ZAP1
#OC 
MA
HOD; MQ=HOE; AC
#OF 


..************************************************** 
..SET P-LENGTH 
 64, S-LENGTH 
 128 
ORG #3046 
,#11110000 ..SET SLAST NOT #0000 
DT
ilOOOO 


..SET GAIN 
 1 
ORG #3062 
,#0001 


..LDFIFO SET 
ORG #51D2 
,#C0701A 
ORG #521B 
,#C0701A 
ORG #5232 
,#3601; ,#522A 
,II7FFF; ,110004; 
,110000; ,110300; 
,#ABAB 
ORG 115226 
,#52lE; ,110020 


..(MAY BE CHANGED LATER) 


..$P5152 FOR FIFO INPUT 


..$P51D5 FOR SINE 


..(#3A01,522E FOR S-FFT) 
, 110000 
,110000 


..(#5222 FOR S-FFT) 


..AFTER SYSRUN I
ITIALIZE, GOTO WORKER 
..(MAY BE CHANGED LATER) 
ORG 11706D 
LBR #0600 ..CALL WORKER 
..(#D41700 TO RUN P-FFT) 
..(#D41703 TO RUN S-FFT) 
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7070 0038 
7070 0039 
7070 0040 
7070 0041 
7070 0042 
7070 0043 
7070 0044 
7070 0045 
7070 0046 
7070 0047 
7070 0048 
7070 ; 0049 
712E D4713D74507456;0050 
7135 D5; 0051 
7136 0052 
7136 ; 0053 
7136 0054 
7500 D4713D74007406;0055 
7507 D5; 0056 
7508 0057 
7508 0058 
7508 0059 
7508 0060 
7508 0061 
7600 0062 
7600 , 0063 
7600 F830BD; 0064 
7603 F8C4AD; 0065 
7606 OD320E; 0066 
7609 0067 
7609 0068 
7609 0069 
7609 D4700F; 0070 
760C 3011; 0071 
760E 0072 
760E 0073 
760E 0074 
760E D47012; 0075 
7611 0076 
7611 0077 
7611 , 0078 
7611 D5; 0079 
7612 0080 


ASP FFT Program 
Run Time Code 


.......................................**..*.......* 
..EXTERNAL SUBROUTINUES 
RGDATA
1i7009 
PFTDTA
f/700F 
SFTDTA
/17012 
FFTDTA
/17015 


PRMEM
//713D 


..PRINT REGISTER DATA 
..PRINT P-FFT INPUT DATA 
..PRINT S-FFT INPUT DATA 
..PRINT FFT OUTPUT DATA 
..(OR INTERMEDIATE RESULTS) 
..PRINT MEMORY 


..SWITCH FFTDTA PRINT TO INCLUDE TOTLSH 
..(DOES KILL "FFTRAM" PRINT, BUT THAT'S OK) 
ORG /1712E 
CALL PRMEM; ,/17450; ,/17456 
EXIT 


..MAKE A FFT OUTPUT PRINT (TO BE "CALL"ED) 
ORG 1/7500 
CALL PRMEM; ,#7400; ,/17406 
EXIT 


..ROUTINUE TO BE CALLED FOR INPUT DATA FIFO 


ORG 1/7600 


INPRNT: 
..CHECK FOR P-FFT 
LDI /130; PHI RD 
LDI /1C4; PLO RD 
LDN RD; BZ ISSFFT 


..INPUT PRINT 


..IF PFTFLG
/100, THEN 
..GOTO PRINT S-FFT DATA 


..ELSE PRINT P-FFT DATA 
CALL PFTDTA 
BR JMPBCK 


. .THEN JUMP BACK 


ISSFFT: 
..PRINT S-FFT DATA 
CALL SFTDTA 


. . IS S-FFT 


JMPBCK: 


..JUMP BACK TO LNSET, 
..(THEN TO FFT MAIN) 


EXIT 
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7612 0081 . . ************************************************** 
7612 0082 ..FRAM PRINT TABLES 
7612 0083 
7612 0084 ORG 1123BE . . WORKER GAIN 
23BE 306231003062; 0085 ,113062; ,113100; ,113062 
23C4 0002; 0086 ,110002 
23C6 ; 0087 
23C6 ; 0088 ORG 117400 ..FFT OUTPUT VALUES 
7400 30E0310030EO; 0089 ,1130EO; ,1/3100; ,I130EO 
7406 00200008; 0090 ,110020; ,110008 
740A ; 0091 
740A ; 0092 ORG iI7 410 ..SLAST/DT 
7410 304631003000; 0093 ,113046 ; ,1/3100; , /13000 
7416 0004; 0094 ,110004 
7418 ; 0095 
7418 ; 0096 ORG /17 42 0 . . YP /YSTBL 
7420 30A531003000; 0097 ,1I30A5; ,113100; ,'3000 
7426 OOOF; 0098 ,IIOOOF 
7428 ; 0099 
7428 ; 0100 ORG il7430 . .ALL OF FFT-RAM 
7430 30C431003000; 0101 ,'30C4; ,113100; ,113000 
7436 003C; 0102 ,II003C 
7438 ; 0103 
7438 ; 0104 ORG 117450 ..TOTAL SHIFT LENGTH 
7450 30DA310030DA; 0105 ,1130DA; ,113100; ,II30DA 
7456 0002; 0106 ,110002 
7458 0107 
7458 ; 0108 ORG 1174EO . .R(MA) & R(MQ) 
74EO 73FA740073FA; 0109 ,1173FA; ,117400; ,I173FA 
74E6 0004; 0110 ,110004 
74E8 01ll 
74E8 0112 ORG iI7 4E8 ..Y,X,WORKING LOWER 2/3 
74E8 30FB310030FB; 0113 ,1I30FB; ,113100; ,'30FB 
74EE 0002; 0114 ,110002 
74FO ; 0115 
74FO ; 0116 ORG 117520 ..R(MQ.O), R(AC) 
7520 73FD740073FD; 0117 ,H73FD; ,117400; ,117 3FD 
7526 0003; 0118 , /10003 
7528 0119 
7528 ; 0120 ORG 117 528 . . GAJ.'1MA I
T/FRC 
7528 30EC310030EC; 0121 ,1I30EC; ,113100; ,/130EC 
752E 0004; 0122 ./10004 
7530 ; 0123 
7530 ; 0124 ORG /17 530 ..R(ZAP3) 
7530 73F6740073F6; 0125 ,1I73F6; ,/17400 ; , tl7 3F6 
7536 0002; 0126 ./10002 
7538 0127 
7538 ; 0128 ORG 117538 ..MAX.ENERGY.INT/EXP 
7538 30F0310030FO; 0129 ,/l30FO; ./13100; ,/l30FO 
753E 0004; 0130 ./10004 
7540 0131 
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7540 0132 
7540 0133 
7540 0134 
7540 0135 
7540 ; 0136 
1878 D4713D74107416;0137 
187F D4713D74207426;0138 
1886 D4713D74307436;0139 
188D D47600; 0140 
1890 D5; 0141 
1891 ; 0142 
1891 ; 0143 
1891 ; 0144 
18EA D47600; 0145 
18ED D4713D74507456;0146 
18F4 D5; 0147 
18F5 0148 
18Y5 0149 
18F5 0150 
196C D5; 0151 
196D 0152 
196D 0153 
196D , 0154 
lA2B D5; 0155 
lA2C 0156 
lA2C 0157 
lA2C ; 0158 
lAA7 C07800; 0159 
lAAA ; 0160 
lAAA ; 0161 
7800 D47015; 0162 
7803 F8E9A8; 0163 
7806 COlAAA; 0164 
7809 0165 
7809 0166 
7809 ; 0167 
lAD7 C07900; 0168 
lADA ; 0169 
lADA ; 0170 
7900 F829BO; 0171 
7903 F860AODO; 0172 
7907 047015; 0173 
790A COIADE; 0174 
790D 0175 
7900 0176 
790D , 0177 
IB03 047015; 0178 
IB06 05; 0179 
IB07 0180 


ASP FFT Program 
Run Time Code 


..###################################I##########U### 
..NOW DO FFT PROGRAM BREAKS 


..AFTER LNSET, PRINT FRAM CHUNKS & INPUT DATA 
ORG 1/1878 
CALL PRMEM; ,#7410; ,#7416 
CALL PRMEM; ,#7420; ,#7426 
CALL PRMEM; ,#7430; ,#7436 
CALL INPRNT 
EXIT 


..AFTER SCALE, PRINT INPUT FIFO 
ORG 1/18EA 
CALL INPRNT 
CALL PRMEM; ,#7450; ,#7456 
EXIT 


..AFTER P-SHAPE, EXIT BACK 
ORG #196C 
EXIT 


..AFTER S-SHAPE, EXIT BACK 
ORG #lA2B 
EXIT 


..DURING FFT, AFTER NEWCOL, PRINT FFT FIFO 
ORG fIlAA7 
LBR 117 800 


ORG #7800 
CALL FFTDTA 
,#F8E9A8 
LBR #lAAA 


..DURING FFT, AFTER MAG CHECK, PRINT FFT FIFO 
ORG IHAD7 
LBR 117900 


ORG /17900 
,UF829BO 
,UF860AOOO 
CALL FFTOTA 
LBR IHADE 


..AFTER FFT, PRINT FFT DATA 
ORG IHBD3 
CALL FFTDTA 
EXIT 
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IBD7 0181 
IBD7 ; 0182 
lCCD D47015; 0183 
lCDO D5; 0184 
lCDl 0185 
lCDl 0186 
lCDl 0187 
ID62 D47AOO; 0188 
ID65 0189 
ID65 ; 0190 
7AOO D47015; 0191 
7A03 F8D8A8; 0192 
7A06 D5; 0193 
7A07 ; 0194 
7A07 ; 0195 
7A07 ; 0196 
IF7A D47015; 0197 
IF7D D5; 0198 
IF7E 0199 
IF7E 0200 
IF7E ; 0201 
2019 D47015; 0202 
201C ; 0203 
201C ; 0204 
201C ; 0205 
20D4 D47015; 0206 
20D7 D5; 0207 
20D8 0208 
20D8 0209 
20D8 ; 0210 
2119 D47015; 0211 
211C 0212 
211C 0213 
2tle 0214 
2itC ; 0215 
2201 C02230; 0216 
2204 ; 0217 
2204 ; 0218 
2230 D47015; 0219 
2233 D4713D74007408;0220 
223A D5; 0221 
2238 ; 0222 
223B ; 0223 
223B ; 0224 
2238 . 0225 
229B C07A20; 0226 
229E 0227 
229E ; 0228 
7A20 D4713D74E074E6;0229 
7A27 F804AODO; 0230 
7A2B C0229F; 0231 


..AFTER UNSCRM, PRINT FFT FIFO 
ORG IilCCD 
CALL FFTDTA 
EXIT 


..DURING ORDER, AFTER SCALE, PRINT FFT FIFO 
ORG IIlD62 
CALL 117 AOO 


ORG 117 AOO 
CALL FFTDTA 
,IIF8D8A8 
EXIT 


..AFTER ORDER, PRINT FFT FIFO 
ORG IJ1F7A 
CALL FFTDTA 
EXIT 


..DURING MAGAPX, AFTER SCALE, PRINT FFT FIFO 
ORG 112019 
CALL FFTDTA 


..AFTER MAGAPX, PRINT FFT OUTPUT DATA 
ORG 1120D4 
CALL FFTDTA 
EXIT 


..DURING SMOOTH/MAX, AFTER SCALE, PRINT FFT FIFO 
ORG 112119 
CALL FFTDTA 


..AFTER SMOOTH/MAX 
..PRINT FFT DATA & SOME OUTPUT VALUES 
ORG /12201 
L8R 112230 


ORG 112230 
CALL FFTDTA 
CALL PRMEM; ,#7400; ,fl7408 
EXIT 


..DURING CKFMAX, DURING SPECTRA CORRECT, 
..PRINT ADDRESSES OF OPERANDS 
ORG I1229B 
L8R I17A20 


ORG fl7A20 
CALL PRMEM; ,fl74EO; ,fl74E6 
, flF804AO; , flDO 
LBR 11229F 
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7A2E 0232 
7A2E 0233 
7A2E ; 0234 
22A8 C07A30; 0235 
22AB ; 0236 
22AB ; 0237 
7A30 D4713D75307536;0238 
7A37 F823BE; 0239 
7A3A C022AB; 0240 
7A3D 0241 
7A3D 0242 
7A3D , 0243 
22BD C07A40; 0244 
22CO ; 0245 
22CO ; 0246 
7A40 D4713D7538753E;0247 
7A47 4DBB4D; 0248 
7A4A C022CO; 0249 
7A4D ; 0250 
7A4D 0251 
7A4D ; 0252 
22D6 C07ASO; 0253 
22D9 ; 0254 
22D9 ; 0255 
7A50 D4713D7538753E;0256 
7A57 F830BDBF; 0257 
7A5B C022DA; 0258 
7A5E 0259 
7A5E 0260 
7ASE , 0261 
22F6 C07A60; 0262 
22F9 0263 
22F9 ; 0264 
7A60 D4713D7538753E;0265 
7A67 F862A8; 0266 
7A6A C022F9; 0267 
7A6D ; 0268 
7A6D ; 0269 
7A6D ; 0270 
2321 C07A70; 0271 
2324 ; 0272 
2324 ; 0273 
7A70 D4713D23BE23C4;0274 
7A77 D4713D7538753E;0275 
7 A7E F8E2A8; 0276 
7A81 C02324; 0277 
7A84 0278 
7A84 0279 
7A84 . 0280 
234E D47500; 0281 
2351 D5; 0282 


ASP FFT Program 
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..THEN PRINT RESULT 
ORG 1122A8 
LBR 117A30 


ORG 117 A30 
CALL PRMEM; ,#7530; .#7536 
,IIF823BE 
LBR 1J22AB 


..PRINT RESULT OF INSFIX NORMALIZE MULTIPLY 
ORG 1122BD 
LBR 117 A40 


ORG 117 A40 
CALL PRMEM; ,#7538; ,#753E 
,114DBB4D 
LBR 1122CO 


..PRINT RESULT OF LENGTH FIX 
ORG 1J22D6 
LBR 117 ASO 


ORG 117 ASO 
CALL PRMEM; ,117538; ,#753E 
,IIF830BDBF 
LBR 1J22DA 


..PRINT RESULT OF GEOPHONE GAIN 
ORG 1122F6 
LBR 117 A60 


ORG 117 A60 
CALL PRMEM; ,#7538; ,#753E 
,IIF862A8 
LBR 1122F9 


..PRINT RESULT OF AMP GAIN 
ORG /12321 
LBR 117 A70 


ORG IJ7A70 
CALL PID1EM; ,#23BE; .#23C4 ..PRINT GAIN 
CALL PRMEM; ,#7538; ,#753E 
,IIF8E2A8 
LBR 112324 


..AFTER CKFMAX, PRINT OUTPUT VALUES 
ORG 11234E 
CALL 117 500 
EXIT 
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2352 0283 
2352 0284 
2352 0285 
2352 , 0286 
2456 C07580; 0287 
2459 0288 
2459 0289 
7580 D4713D74E074E6;0290 
7587 D01D1D; 0291 
758A C02459; 0292 
758D 0293 
758D 0294 
758D ; 0295 
2465 C07A10; 0296 
2468 0297 
2468 0298 
7A10 D4713D75307536;0299 
7A17 E88BF473; 0300 
7A1B C02469; 0301 
7A1E 0302 
7A1E 0303 
7A1E 0304 
2492 C07598; 0305 
2495 0306 
2495 0307 
7598 D4713D74E874EE;0308 
759F F825BO; 0309 
75A2 F8DOAO; 0310 
75A5 DO; 0311 
75A6 D4713D75207526;0312 
75AD C02499; 0313 
75BO 0314 
7580 0315 
75BO ; 0316 
24E6 C076AO; 0317 
24E9 ; 0318 
24E9 ; 0319 
76AO D4713D74E874EE;0320 
76A7 DO; 0321 
76A8 D4713D75207526;0322 
76AF F8F9A8; 0323 
7682 C024EA; 0324 
7685 ; 0325 


. .DURING GMACPT 
..PRINT Y & INSFIX ADDRESSES 
ORG 112456 
LBR 117 580 


ORG 117580 
CALL PRMEM; ,#74EO; ,#74E6 
, lIDO; ,II1DlD 
LBR 112459 


..PRINT PRODUCT RESULTING 
ORG 112465 
LBR 117 AlO 


ORG 117 A10 
CALL PRMEM; ,#7530; ,#7536 
,IIE8; ,fl8BF473 
LBR 112469 


..PRINT AVG(Y) AND LOG(AVG(Y)) 
ORG 112492 
L8R 117598 


ORG 117 598 
CALL PRMEM; ,#74E8; ,#74EE 
,#F82580 
,IIF8DOAO 
,lIDO 
CALL PRMEM; ,#7520; ,#7526 
LBR fl2499 


..PRINT X2 & LOG(X2) 
ORG 1124E6 
LBR 117 6AO 


ORG 1176AO 
CALL PRMEM; ,#74E8; ,#74EE 
,#DO 
CALL PRMEM; ,17520; ,#7526 
,#F8F9A8 
LBR 112 4EA 
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76B5 ; 0326 
76B5 ; 0327 
24FC C075B8; 0328 
24FF ; 0329 
24FF ; 0330 
75B8 D4713D74E874EE;0331 
75BF DO; 0332 
75CO D4713D75207526;0333 
75C7 F8F9A8; 0334 
75CA C02500; 0335 
75CD 0336 
75CD 0337 
75CD ; 0338 
2567 C075DO; 0339 
256A ; 0340 
256A ; 0341 
75DO D4713D7528752E;0342 
75D7 F800AA; 0343 
75DA C0256A; 0344 
75DD ; 0345 
75DD ; 0346 
75DD ; 0347 
25CB D47500; 0348 
25CE D5; 0349 
25CF ; 0350 
25CF ; 0351 
25CF ; 0352 
2CAS D47500; 0353 
2CA8 D5; 0354 
2CA9 0355 
2CA9 0356 
2CA9 0357 


..PRINT Xl & LOG(X1) 
ORG 1124FC 
LBR 1175B8 


ORG 1175B8 
CALL PRMEM; ,#74E8; ,#74EE 
,lIDO 
CALL PRMEM; ,#7520; ,#7526 
,IIF8F9A8 
LBR 112500 


..PRINT DIVISION RESULT (HEX) 
ORG 112567 
LBR 117 5DO 


ORG 117 5DO 
CALL PRMEM; ,#7528; ,#752E 
,IIF800AA 
,flC0256A 


..AT END OF GMACPT PRINT RESULTS 
ORG 1125CB 
CALL 117500 
EXIT 


..AT END OF FOLPL PRINT RESULTS 
ORG 112CA5 
CALL 117 500 
EXIT 


ASP FFT Program 
Run Time Code 


..################################################## 
..END OF FFT COMPLETE TRACE.SR 
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B.1.4 FFT OUT TRACE 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 , 
3046 11110000; 
304A ; 
304A ; 
304A ; 
304A ; 
3062 0001; 
3064 
3064 
3064 
51D2 C0701A; 
51D5 , 
521B C0701A; 
521E , 
5232 3601522A; 
5236 7FFF00040000; 
523C 000003000000; 
5242 ABAB; 
5244 ; 
5226 521E0020; 
522A ; 
522A ; 
522A ; 
522A ; 
706D C00600; 
7070 
7070 
7070 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


..FFT OUT TRACE.SR 


9 MARCH 80 


9:45 AM 


ZAP=#OO; PC2#03; FRP=#08; MP=#09 
ZAP2=#OA; ZAP3=#OB; ZAP1=#OC 
MA=#OD; MQ=#OE; AC-#OF 


..************************************************** 
..SET P-LENGTH = 64, S-LENGTH - 128 
ORG 113046 
,#11110000 ..SET SLAST NOT #0000 
DT=IIOOOO 


. .SET GAIN = 1 
ORG 113062 
,1/0001 


. .LDFIFO SET 
ORG 1151D2 
,IIC0701A 
ORG 11521B 
,IIC0701A 
ORG 115232 
,1/3601; ,I1522A 
,#7FFF; ,110004; 
,110000; ,110300; 
,II ABAB 
ORG 115226 
,11521E; ,110020 


..(MAY BE CHANGED LATER) 


..$P5152 FOR FIFO INPUT 


..$P51D5 FOR SINE 


..(#3A01,522E FOR S-FFT) 
,110000 
,110000 


..(#5222 FOR S-FFT) 


..AFTER SYSRUN INITIALIZE, GOTO WOIDZER 
..(MAY BE CHANGED LATER) 
ORG 11706D 
LBR #0600 ..CALL WORKER 
..(#D41700 TO RUN P-FFT) 
..(#D41703 TO RUN S-FFT) 
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7070 0038 ..************************************************** 
7070 0039 
7070 0040 
7070 0041 
7070 0042 
7070 0043 
7070 0044 
7070 0045 
7070 0046 
7070 0047 
7070 0048 
7070 ; 0049 
712E D4713D74507456;0050 
7135 D5; 0051 
7136 ; 0052 
7136 ; 0053 ..MAKE 
7136 ; 0054 
7500 D4713D74007406;0055 
7507 D5; 0056 
7508 0057 
7508 0058 
7508 0059 ..ROUTINUE TO BE CALLED FOR INPUT DATA FIFO 
7508 0060 
7508 0061 
7600 0062 
7600 ; 0063 
7600 F830BD; 0064 
7603 F8C4AD; 0065 
7606 OD320E; 0066 
7609 0067 
7609 0068 
7609 0069 
7609 D4700F; 0070 
760C 3011; 0071 
760E 0072 
760E 0073 
760E 0074 
760E D47012; 0075 
7611 0076 
7611 0077 JMPBCK: 
7611 0078 
7611 D5; 0079 
7612 0080 


ASP FFT Program 
Run Time Code 


..EXTERNAL SUBROUTINUES 
RGDATA=117009 
PFTDTA=11700F 
SFTDTA=117012 
FFTDTA=117015 


..PRINT REGISTER DATA 
..PRINT P-FFT INPUT DATA 
..PRINT S-FFT INPUT DATA 
..PRINT FFT OUTPUT DATA 
..(OR INTERMEDIATE RESULTS) 
..PRINT MEMORY 


PRMEM=II713D 


..SWITCH FFTDTA PRINT TO INCLUDE TOTLSH 
..(DOES KILL "FFTRAM" PRINT, BUT THAT'S OK) 
ORG 11712E 
CALL PRMEM; ,#7450; ,#7456 
EXIT 


A FFT OUTPUT 
ORG 117500 
CALL PRMEM; 
EXIT 


PRINT (TO BE "CALL"ED) 


,117 400; ,117 406 


ORG 117600 


INPRNT: 
..CHECK FOR P-FFT 
LDI 1130; PHI RD 
LDI IIC4; PLO RD 
LDN RD; BZ ISSFFT 


..INPUT PRINT 


..IF PFTFLG=#OO, THEN 
..GOTO PRINT S-FFT DATA 


..ELSE PRINT P-FFT DATA 
CALL PFTDTA 
BR JMPBCK 


. . THEN JUMP BACK 


ISSFFT: 
..PRINT S-FFT DATA 
CALL SFTDTA 


..IS S-FFT 


..JUMP BACK TO LNSET, 
..(THEN TO FFT MAIN) 


EXIT 
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7612 0081 .................................................... 
7612 0082 ..FRAM PRINT TABLES 
7612 0083 
7612 ; 0084 ORG 1123BE . . WORKER GAIN 
23BE 306231003062; 0085 .1/3062 ; .1/3100 ; .1/3062 
23C4 0002; 0086 .1/0002 
23C6 ; 0087 
23C6 ; 0088 ORG 1/7 400 ..FFT OUTPUT VALUES 
7400 30E0310030EO; 0089 . 1/30EO ; .113100 ; .1/30EO 
7406 00200008; 0090 .1/0020; .1/0008 
740A ; 0091 
740A ; 0092 ORG 1/7410 ..SLAST/DT 
7410 304631003000; 0093 .1/3046 ; .113100; .113000 
7416 0004; 0094 .1/0004 
7418 ; 0095 
7418 ; 0096 ORG 1/7 420 . . yp IYSTBL 
7420 30A531003000; 0097 . 1/30A5; . 1/3100; .113000 
7426 OOOF; 0098 .I/OOOF 
7428 ; 0099 
7428 ; 0100 ORG 1/7 430 . .ALL OF FFT-RAM 
7430 30C431003000; 0101 . 1/30C4 ; .1/3100; .1/3000 
7436 003C; 0102 .1/003C 
7438 0103 
7438 ; 0104 ORG f/7450 . . TOTAL SHIFT LENGTH 
7450 30DA310030DA; 0105 .1I30DA; .1/3100; .1I30DA 
7456 0002; 0106 .110002 
7458 ; 0107 
7458 ; 0108 ORG 1/74EO . .R(MA) & R(MQ) 
74EO 73FA740073FA; 0109 .1/73FA; .1/7400; .1/7 3F A 
74E6 0004; 0110 .110004 
74E8 ; 0111 
74E8 ; 0112 ORG 1/74E8 ..Y.X.WORKING LOWER 2/3 
74E8 30FB310030FB; 0113 . 1130FB; .1/3100; .1/30FB 
74EE 0002; 0114 .1/0002 
74FO ; 0115 
74FO ; 0116 ORG 1/7 520 . .R(MQ.O), R(AC) 
7520 73FD740073FD; 0117 .1/7 3FD; .1/7400 ; .1/73FD 
7526 0003; 0118 .110003 
7528 0119 
7528 ; 0120 ORG 1/7528 ..GAMMA INT/FRC 
7528 30EC310030EC; 0121 ,1/30EC; .1/3100 ; ,1/30EC 
752E 0004; 0122 ,110004 
7530 ; 0123 
7530 ; 0124 ORG 1/7 530 . .R(ZAP3) 
7530 73F6740073F6; 0125 ,tn3F6; .117400; ,tn3F6 
7536 0002; 0126 ,110002 
7538 0127 
7538 ; 0128 ORG 1/7538 ..MAX.ENERGY.INT/EXP 
7538 30F0310030FO; 0129 , fI30FO; ,113100; ,II30FO 
753E 0004; 0130 ,1/0004 
7540 0131 
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7540 
7540 
7540 
7540 
7540 ; 
1878 D5; 
1879 ; 
1879 ; 
1879 ; 
18EA D5; 
18EB ; 
18EB 
18EB , 
196C D5; 
196D 
196D 
196D 
lA2B D5; 
1A2C 
1A2C 
lA2C 
IM7 F8E9A8; 
1AAA ; 
lAAA ; 
lAAA ; 
lAD7 F829BO; 
lADA ; 
1ADA ; 
lADA ; 
IBD3 D5; 
1BD4 
IBD4 
IBD4 
lCCD D5; 
lCCE 
lCCE 
lCCE , 
ID62 F8D8A8; 
ID65 
1D65 
ID65 ; 
1F7A D5; 
IF7B 
IF7B 
lF7 B , 
2019 C4C4C4; 
201C 
201C 
201C 
20D4 
20D7 


0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 


, 
D47015; 
D5; 
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..######################1########################### 
..NOW DO FFT PROGRAM BREAKS 


..AFTER LNSET, EXIT 
ORG 111878 
EXIT 


..AFTER SCALE, EXIT 
ORG #18EA 
EXIT 


..AFTER P-SHAPE, EXIT BACK 
ORG IIl96C 
EXIT 


..AFTER S-SHAPE, EXIT BACK 
ORG 11lA2 B 
EXIT 


..DURING FFT, AFTER NEWCOL, CONTINUE 
ORG 111M7 
,IIF8E9A8 


..DURING FFT, AFTER MAG CHECK, CONTINUE 
ORG IIlAD7 
,IIF829BO 


..AFTER FFT, EXIT 
ORG IIlBD3 
EXIT 


..AFTER UNSCRM, EXIT 
ORG HCCD 
EXIT 


..DURING ORDER, AFTER SCALE, CONTINUE 
ORG #lD62 
,IIF8D8A8 


..AFTER ORDER, EXIT 
ORG #1F7A 
EXIT 


..DURING MAGAPX, AFTER SCALE, CONTINUE 
ORG 112019 
,#C4C4C4 


..AFTER MAGAPX, PRINT FFT OUTPUT DATA 
ORG I120D4 
CALL FFTDTA 
EXIT 
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20D8 0183 
20D8 0184 
20D8 , 0185 
2119 C4C4C4; 0186 
211C 0187 
211C 0188 
211C 0189 
211C ; 0190 
2201 C02230; 0191 
2204 ; 0192 
2204 ; 0193 
2230 D47015; 0194 
2233 D4713D74007408;0195 
223A D5; 0196 
223B ; 0197 
223B ; 0198 
223B ; 0199 
223B ; 0200 
229B C07A20; 0201 
229E ; 0202 
229E ; 0203 
7A20 D4713D74E074E6;0204 
7A27 F804AODO; 0205 
7A2B C0229F; 0206 
7A2E 0207 
7A2E 0208 
7A2E , 0209 
22A8 C07A30; 0210 
22AB ; 0211 
22AB ; 0212 
7A30 D4713D75307536;0213 
7A37 F823BE; 0214 
7A3A C022AB; 0215 
7A3D 0216 
7A3D 0217 
7A3D . 0218 
22BD C07A40; 0219 
22CO 0220 
22CO ; 0221 
7A40 D4713D7538753E;0222 
7A47 4DBB4D; 0223 
7A4A C022CO; 0224 
7A4D 0225 
7A4D 0226 
7A4D . 0227 
22D6 C07A50; 0228 
22D9 0229 
22D9 ; 0230 
7A50 D4713D7538753E;0231 
7A57 F830BDBF; 0232 
7A5B C022DA; 0233 


..DURING SMOOTH/MAX. AFTER SCALE. CONTINUE 
ORG 112119 
.IIC4C4C4 


..AFTER SMOOTH/MAX 
..PRINT FFT DATA & SOME OUTPUT VALUES 
ORG fl2201 
LBR fl2230 


ORG 112230 
CALL FFTDT A 
CALL PRMEM; .fl7400; ,#7408 
EXIT 


..DURING CKFMAX, DURING SPECTRA CORRECT. 
..PRINT ADDRESSES OF OPERANDS 
ORG 11229B 
LBR 117 A20 


ORG I17A20 
CALL PRMEM; ,#74EO; .#74E6 
.IIF804AO; .IIDO 
LBR 11229F 


..THEN PRINT RESULT 
ORG 1122A8 
LBR 117 A30 


ORG 117 A30 
CALL PRMEM; ,#7530; ,fl7536 
.IIF823BE 
LBR 1122AB 


..PRINT RESULT OF INSFIX NORMALIZE MULTIPLY 
ORG 1122BD 
LBR 117 A40 


ORG 117 A40 
CALL PRMEM; .#7538; .#753E 
.114DBB4D 
LBR 1122CO 


..PRINT RESULT OF LENGTH FIX 
ORG 1122D6 
LBR 117A50 


ORG 117 A50 
CALL PID1EM; .#7538; .1I753E 
.IIF830BDBF 
LBR 1122DA 
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7ASE 0234 
7A5E 0235 
7ASE ; 0236 
22F6 C07A60; 0237 
22F9 ; 0238 
22F9 ; 0239 
7A60 D4713D7538753E;0240 
7A67 F862A8; 0241 
7A6A C022F9; 0242 
7A6D 0243 
7A6D 0244 
7A6D , 0245 
2321 C07A70; 0246 
2324 0247 
2324 ; 0248 
7A70 D4713D23BE23C4;0249 
7A77 D4713D7538753E;0250 
7A7E F8E2A8; 0251 
7A81 C02324; 0252 
7A84 0253 
7A84 0254 
7A84 , 0255 
234E D47500; 0256 
2351 D5; 0257 
2352 0258 
2352 0259 
2352 0260 
2352 ; 0261 
2456 C07580; 0262 
2459 ; 0263 
2459 ; 0264 
7580 D4713D74E074E6;0265 
7587 D01D1D; 0266 
758A C02459; 0267 
758D 0268 
758D 0269 
758D , 0270 
2465 C07A10; 0271 
2468 0272 
2468 ; 0273 
7A10 D4713D75307536;0274 
7A17 E88BF473; 0275 
7A1B C02469; 0276 
7A1E ; 0277 


..PRINT RESULT OF GEOPHONE GAIN 
ORG 1122F6 
LBR 117 A60 


ORG 117 A60 
CALL PRMEM; ,#7538; ,#753E 
,IIF862A8 
LBR 1122F9 


..PRINT RESULT OF AMP GAIN 
ORG 112321 
LBR 117 A70 


ORG 117 A70 
CALL PRMEM; ,#23BE; ,#23C4 
CALL PRMEM; ,#7538; ,#753E 
,IIF8E2A8 
LBR 112324 


..AFTER CKFMAX, PRINT OUTPUT VALUES 
ORG 11234E 
CALL 117 500 
EXIT 


. . DURING GMACPT 
..PRINT Y & INSFIX ADDRESSES 
ORG 112456 
LBR 117 580 


ORG 117 580 
CALL PRMEM; ,#74EO; ,U74E6 
,UDO; ,U101D 
LBR 112459 


..PRINT PRODUCT RESULTING 
ORG 112465 
LBR 117 A10 


ORG 117 A10 
CALL PRMEM; ,#7530; ,#7536 
,f/E8; ,#8BF473 
LBR 112469 
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..PRINT GAIN 



ASP FFT Program 
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7A1E 0278 
7A1E 0279 
2492 C07598; 0280 
2495 0281 
2495 ; 0282 
7598 D4713D74E874EE;0283 
759F F825BO; 0284 
75A2 F8DOAO; 0285 
75A5 DO; 0286 
75A6 D4713D75207526;0287 
75AD C02499; 0288 
75BO 0289 
75BO 0290 
75BO ; 0291 
24E6 C076AO; 0292 
24E9 0293 
24E9 0294 
76AO D4713D74E874EE;0295 
76A7 DO; 0296 
76A8 D4713D75207526;0297 
76AF F8F9A8; 0298 
76B2 C024EA; 0299 
76B5 ; 0300 
76B5 ; 0301 
76B5 ; 0302 
24FC C075B8; 0303 
24FF ; 0304 
24FF ; 0305 
75B8 D4713D74E874EE;0306 
75BF DO; 0307 
75CO D4713D75207526;0308 
75C7 F8F9A8; 0309 
75CA C02500; 0310 
75CD 0311 
75CD 0312 
75CD ; 0313 
2567 C075DO; 0314 
256A ; 0315 
256A ; 0316 
75DO D4713D7528752E;0317 
75D7 F800AA; 0318 
75DA C0256A; 0319 
75DD ; 0320 
75DD 0321 
75DD ; 0322 
25CB D47500; 0323 
25CE D5; 0324 
25CF ; 0325 


..PRINT AVG(Y) AND LOG(AVG(Y)) 
ORG 112492 
LBR 117598 


ORG 117 598 
CALL PRMEM; ,#74E8; ,#74EE 
,IIF825BO 
,IIF8DOAO 
, lIDO 
CALL P

EM; ,#7520; ,#7526 
LBR 112499 


..PRINT X2 & LOG(X2) 
ORG 1124E6 
LBR 117 6AO 


ORG 117 6AO 
CALL PRMEM; ,fI74E8; ,1174EE 
, lIDO 
CALL PRMEM; ,117520; ,fl7526 
,IIF8F9A8 
LBR 1124EA 
..PRINT Xl & LOG(X1) 
ORG 1124FC 
LBR 1175B8 
ORG 1175B8 
CALL PRMEM; ,1174E8; ,117 4EE 
,f/DO 
CALL PRMEM; ,117520; ,117526 
,flF8F9A8 
LBR 112500 


..PRINT DIVISION RESULT (HEX) 
ORG 112567 
LBR 1175DO 


ORG f/75DO 
CALL PRMEa; ,fI7528; ,fI752E 
.flF800AA 
,f/C0256A 


..AT END OF GMACPT PRINT RESULTS 
ORG f125CB 
CALL fI7 500 
EXIT 
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2SCF ; 
2SCF ; 
2CAS D47500; 
2CA8 DS; 
2CA9 
2CA9 ; 
2CA9 ; 


0326 
0327 
0328 
0329 
0330 
0331 
0332 
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..AT END OF FÜLPL PRINT RESULTS 
ORC 112CAS 
CALL fl7500 
EXIT 


..flflUflUflflUflflflUflUflUUflUUUflflflflflflUUflflflflflUflUflflflflIIUUUUUUUfI 
..END OF FFT OUT TRACE.SR 


, 
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B.1.5 FFT NO TRACE 
0000 0001 
0000 0002 
0000 0003 
0000 0004 
0000 0005 
0000 0006 
0000 0007 
0000 0008 
0000 0009 
0000 0010 
0000 0011 
0000 ; 0012 
1878 D5; 0013 
1879 0014 
1879 ; 0015 
1879 ; 0016 
18EA D5; 0017 
18EB 0018 
18EB 0019 
18EB ; 0020 
196C 05; 0021 
196D 0022 
196D 0023 
196D ; 0024 
1A2B 05; 0025 
1A2C 0026 
1A2C 0027 
1A2C 0028 
1AA7 F8E9A8; 0029 
1AAA 0030 
1AAA 0031 
1AAA 0032 
1AD7 F829BO; 0033 
1 ADA 0034 
1 ADA 0035 
1 ADA 0036 
1BD3 05; 0037 
IBD4 0038 
IBD4 0039 
IBD4 0040 
lCCD 05; 0041 
lCCE 0042 
lCCE 0043 
lCCE ; 0044 
ID62 F8D8A8; 0045 


..FFT NO TRACE.SR 


5 MARCH 80 


3:30 PM 


ZAP=#OO; PC=#03; FRP=#08; MP=#09 
ZAP2=#OA; ZAP3=#OB; ZAP1=#OC 
MA=#OD; MQ=HOE; AC=#OF 


..*************************************************
 
..NOW DO FFT PROGRAM CLEARS 


..AFTER LNSET, EXIT 
ORG 111878 
EXIT 


..AFTER SCALE, EXIT 
ORG H18EA 
EXIT 


..AFTER P-SHAPE, EXIT BACK 
ORG #196C 
EXIT 


..AFTER S-SHAPE, EXIT BACK 
ORG H1A2B 
EXIT 


..DURING FFT, AFTER NEWCOL, CONTINUE 
ORG f/lAA7 
,f1F8E9A8 


..DURING FFT, AFTER MAG CHECK, CONTINUE 
ORG HIAD7 
,f1F829BO 


..AFTER FFT, EXIT 
ORG IHBD3 
EXIT 


..AFTER UNSCID1, EXIT 
ORG IIICCD 
EXIT 


..DURING ORDER, AFTER SCALE, CONTINUE 
ORG IHD62 
, flF8D8A8 
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lD65 0046 
lD65 0047 ..AFTER ORDER, EXIT 
lD65 ; 0048 ORG 1I1F7A 
lF7A D5; 0049 EXIT 
lF7B ; 0050 
lF7B ; 0051 ..DURING MAGAPX, AFTER SCALE, CONTINUE 
lF7B ; 0052 ORG 112019 
2019 C4C4C4; 0053 ,IIC4C4C4 
201C ; 0054 
201C ; 0055 ..AFTER MAGAPX, EXIT 
201C ; 0056 ORG 1120D4 
20D4 D5; 0057 EXIT 
20D5 0058 
20D5 0059 ..DURING SMOOTH/MAX, AFTER SCALE, CONTINUE 
20D5 ; 0060 ORG 112119 
2119 C4C4C4; 0061 ,IIC4C4C4 
211C 0062 
211C 0063 ..AFTER SMOOTH/MAX, EXIT 
211C ; 0064 ORG 112201 
2201 D5; 0065 EXIT 
2202 0066 
2202 0067 ..DURING CKFMAX, DURING SPECTRA CORRECT, CONTINUE 
2202 ; 0068 ORG 11229B 
229B F804AODO; 0069 ,IIF804AO; ,liDO 
229F 0070 
229F 0071 . . THEN CONTINUE 
229F ; 0072 ORG 1122A8 
22A8 F823BE; 0073 ,IIF823BE 
22AB ; 0074 
22AB ; 0075 . . CONTINUE 
22AB ; 0076 ORG 1122BD 
22BD 4DBB4D; 0077 , #4DBB4D 
22CO 0078 
22CO 0079 . .CONTINUE 
22CO ; 0080 ORG 1122D6 
22D6 F830BDBF; 0081 ,IIF830BDBF 
22DA ; 0082 
22DA ; 0083 . . CONTINUE 
22DA ; 0084 ORG 1i22F6 
22F6 F862A8; 0085 , f/F862A8 
22F9 0086 
22F9 0087 . . CONTINUE 
22F9 ; 0088 ORG 1i2321 
2321 F8E2A8; 0089 , flF8E2A8 
2324 0090 
2324 0091 ..AFTER CKFMAX, EXIT 
2324 ; 0092 ORG f1234E 
234E D5; 0093 EXIT 
234F 0094 
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234F ; 
234F ; 
2456 DOlDlD; 
2459 
2459 
2459 , 
2465 E88BF473; 
2469 
2469 
2469 
2492 F825BO; 
2495 
2495 
2495 , 
24E6 DO; 
24E7 F8F9A8; 
24EA ; 
24EA ; 
24EA ; 
24FC DO; 
24FD F8F9A8; 
2500 
2500 
2500 
2567 F800AA; 
256A ; 
256A ; 
256A ; 
25CB D5; 
25CC ; 
25CC ; 
25CC ; 
2CAS D5; 
2CA6 
2CA6 
2CA6 


0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 


..DURING GMACPT, CONTINUE 
ORG 112456 
,liDO; ,Ii1DlD 


..CONTINUE 
ORG 112465 
,IIE8; ,1I8BF473 


. .CONTINUE 
ORG 112492 
,IIF825BO 


..CONTINUE 
ORG 1124E6 
,liDO 
,IIF8F9A8 


..CONTINUE 
ORC 1124FC 
,liDO 
,IIF8F9A8 


. . CONTINUE 
ORG 112567 
,IIF800AA 


..AT END OF GMACPT EXIT 
ORG #25CB 
EXIT 


..AT END OF FOLPL PRINT RESULTS 
ORG 112CA5 
EXIT 


..11#11#1111###11##11#11111111###1111#1111##11#11#1111######1111#11#11###11 
..END OF FFT NO TRACE.SR 
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B.1.6 
mLTI FFT 


0000 0001 
0000 0002 . .MULTI FFT. SR 9 MAY 80 3:40 PM 
0000 0003 
0000 0004 . . FROM SYSRUN, GOTO HANDLER 
0000 ; 0005 ORG 11706D 
706D C06000; 0006 LBR #6000 
7070 0007 
7070 0008 . .HANDLER 
7070 0009 ORG 116000 
6000 0010 
6000 0011 . . INIT IAL IZE 
6000 ; 0012 ..SET START POINTER @ 6100 TO 113601 (1I3A01) 
6000 F861BF; 0013 LDI 1161; PHI RF 
6003 F800AF; 0014 LDI 1100; PLO RF 
6006 F8365FlF; 0015 LDI #36; STR RF; INC RF . . (l13A) 
600A F8005F; 0016 LDI 1100; STR RF 
600D 0017 
600D 0018 FFTLP: . .DO FFT LOOP 
600D ; 0019 ..SET DT 
 111111, SLAST 
 #0000 
600D F830BF; 0020 LDI #30; PHI RF 
6010 F846AF; 0021 LDI 1146; PLO RF 
6013 F8115FlF; 0022 LDI 1111; STR RF; INC RF 
6017 5FlF; 0023 STR RF; INC RF 
6019 F8005FlF; 0024 LDI 1100; STR RF; INC RF 
60lD 5FlF; 0025 STR RF; INC RF 
60lF 0026 
601F 0027 ..GET STARTING OUTPUT POINTER INTO RD 
601F ; 0028 . .AND PASS TO YPTBL (YSTBL) 
601F F8A5AF; 0029 LDI liAS; PLO RF ..(IIAE) 
6022 F861BE; 0030 LDI #61; PHI RE 
6025 F800AE; 0031 LDI 1100; PLO RE 
6028 4EBD5FlF; 0032 LDA RE; PHI RD; STR RF; INC RF 
602C OEAD5F; 0033 LDN RE; PLO RD; STR RF 
602F 0034 
602F 0035 ..REFILL FIFO WITH INPUT DATA 
602F 0036 ..IF PFFT @ #7AOO TO 117A7F 
602F 0037 ..IF SFFT @ #7BOO TO #7BFF 
602F ; 0038 ..SET UP INPUT POINTER 
602F F87 ABF; 0039 LDI 117 A; PHI RF . . (117 B) 
6032 F800AF; 0040 LDI 1100; PLO RF 
6035 0041 
6035 ; 0042 PASVLU: . . PASS A VALUE 
6035 4F5DlD; 0043 LDA RF; STR RD; I NC RD 
6038 4F5D1D; 0044 LDA RF; STR RD; INC RD 
603B 0045 
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603B ; 0046 
603B 8FFF80; 0047 
603E 9D7F7A; 0048 
6041 C36053; 0049 
6044 ; 0050 
6044 ; 0051 
6044 8DFF01; 0052 
6047 9D7F3A; 0053 
604A CB6035; 0054 
604D ; 0055 
604D ; 0056 
604D F836BD; 0057 
6050 C06035; 0058 
6053 ; 0059 
6053 ; 0060 
6053 ; 0061 
6053 D4713D61106116;0062 
605A ; 0063 
605A D41700; 0064 
605D ; 0065 
605D ; 0066 
605D D4713D61206126;0067 
6064 ; 0068 
6064 ; 0069 
6064 F861BF; 0070 
6067 F801AFEF; 0071 
606B F802F4AE73; 0072 
6070 F80074BE5F; 0073 
6075 0074 
6075 , 0075 
6075 8EFF01; 0076 
6078 9E7F3A; 0077 
607B C37006; 0078 
607E 0079 
607E , 0080 
607E C0600D; 0081 
6081 0082 
6081 0083 
6081 0084 
6081 0085 
6081 0086 
6081 , 0087 
1730 05; 0088 
173E 0089 
173E 0090 
173E ; 0091 
6110 30A5310030A5; 0092 
6116 0002; 0093 
6118 ; 0094 


..CHECK FOR DONE PASSING 
GLO RF; SMI #80 ..(#00) 
GHI RD; 5MBI #7A ..(#7C) 
LBDF CALFFT ..IF DONE, GOTO FFT 


..ELSE, CHECK FOR PAST FIFO END 
GLO RD; SMI #01 
GHI RD; 5MBI #3A . .(#3E) 
LBNF PASVLU ..IF UNDER, REPASS 


..ELSE, RESET AND THEN PASS 
LDI #36; PHI RD 
LBR PASVLU 


. . (f/3A) 


CALFFT: ..CALL FFT 
..PRINT FIRST INPUT ADDRESS 
,IID4713D; ,#6110; ,#6116 


CALL #1700 


. .(fi1703) 


..ON RETURN, PRINT VALUES 
,f/D4713D; ,#6120; ,f/6126 


. .THEN INCREMENT STARTING VALUE BY 2 
LDI #61; PHI RF 
LDI #01; PLO RF; SEX RF 
LDI #02; ADD; PLO RE; STXD 
LDI #00; ADC; PHI RE; STR RF 


..CHECK FOR DONE DOING FFT'S 
GLO RE; SMI f/O 1 
GHI RE; 5MBI #3A 
LBDF #7006 ..IF 


. .(f/3E) 
DONE, RETURN TO MONITOR 


..ELSE 00 NEXT FFT 
LBR FFTLP 


..************************************************** 


..BREAK OUT OF FFTMN BEFORE PRINTING TO TERMINAL 
ORG fl173D 
EXIT 


..PRINT YPTBL (YSTBL) 
ORG 116110 
,f/30A5; ,f/3100; ,f/30A5 . .(f/30AE) 
, flO002 
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6118 
6118 
6120 30E0310030EO; 
6126 0020; 
6128 
6128 
6128 


0095 
0096 
0097 
0098 
0099 
0100 
0101 
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..PRINT OUTPUT VALUES 
ORC 1/6120 
,#30EO; ,#3100; ,#30EO 
,1/0020 


..###########H##########################H########### 
..END OF 
mLTI FFT.SR 
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B.1.7 8085 FULL TRACE 


0000 0001 
0000 0002 
0000 0003 
0000 ; 0004 
1F23 2D; 0005 
1F24 ; 0006 
1F4B 55; 0007 
1F4C ; 0008 
1F4C ; 0009 
176D C0606D; 0010 
1770 ; 0011 
1770 ; 0012 
606D F8EBA8; 0013 
6070 08FD06; 0014 
6073 3292; 0015 
6075 3088; 0016 
6077 0017 
6077 ; 0018 
1796 C06080; 0019 
1799 0020 
1799 , 0021 
6080 F8EBA8; 0022 
6083 08FD05; 0023 
6086 3292; 0024 
6088 0025 
6088 D47015; 0026 
608B D4713D74307436;0027 
6092 ; 0028 
6092 D4713D74007406;0029 
6099 D5; 0030 
609A 0031 
609A ; 0032 
609A ; 0033 
609A ; 0034 
712E D4713D74507456;0035 
7135 D5; 0036 
7136 0037 
7136 ; 0038 
7500 D4713D74007406;0039 
7507 D5; 0040 
7508 0041 


..8085 FULL TRACE.SR 


13 MAY 80 


5:45 PM 


ORC 111 F23 
,1I2D 
ORG IHF4B 
,1155 


ORG IH76D . .S-FFT BREAK. 
LBR /l606D 


ORG 11606D ..AFTER SFFT SEND 
LDI IIEB; PLO R8 ..CHECK FOR FO 
 6 
LDN R8; SDr /106 
BZ FTEXIT ..EXIT IF EQUAL 
BR FTPRNT ..PRINT IF NOT 


ORG 111796 ..P-FFT BREAK. 
LBR 116080 


ORG #6080 ..AFTER PFFT SEND 
LDI /lEB; PLO R8 ..CHECK FOR FO 
 5 
LDN R8; SDI 1105 
BZ FTEXIT 


FTPRNT: CALL 117015 
CALL #713D; ,117430; ,117436 
FTEXIT: CALL I1713D; ,117400; ,117406 
EXIT 


..************************************************** 


ORG #712E 
CALL #713D; ,#7450; ,#7456 
EXIT 


ORG 117500 
CALL #713D; ,/17400; ,87406 
EXIT 
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7508 
7508 ; 
7430 30C4310030C4; 
7436 001C; 
7438 ; 
7438 ; 
7450 30DA310030DA; 
7456 0002; 
7458 ; 
7458 ; 
7400 30E0310030EO; 
7406 0020; 
7408 
7408 
7408 
7408 ; 
1878 D47600; 
187B D5; 
187C 
187C 
7600 F830BD; 
7603 F8C4AD; 
7606 OD320E; 
7609 ; 
7609 D4700F; 
760C 3011; 
760E ; 
760E D47012; 
7611 ; 
7611 D5; 
7612 
7612 
7612 
7612 


0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
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..-------------------------------------------------- 


ORC 117430 
.#30C4; .#3100; .#30C4 
.1I001C 


ORC 117 450 
.#30DA; .#3100; .#30DA 
.110002 


ORC 117400 
.#30EO; .#3100; .#30EO 
.110020 


..************************************************** 


ORC 111878 
CALL #7600 
EXIT 


..INPUT PRINT 


ORC 117600 
LDI 1130; PHI RD 
LDI #C4; PLO RD 
LDN RD; BZ ISSFFT 


CALL IHOOF 
.#3011 


ISSFFT: CALL #7012 


EXIT 


..################################U##############U#U 
..END OF 8085 FULL TRACE.SR 
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B.2 RUN TIME TABLES 


B.2.1 SINWAV (Sine Wave) 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
4000 
4000 
4000 
4000 0000; 
4002 0324; 
4004 0647; 
4006 096A; 
4008 OC8B; 
400A OFAB; 
400C 12C8; 
400E 15E2; 
4010 18F8; 
4012 1COB; 
4014 1Fl9; 
4016 2223; 
4018 2528; 
401A 2826; 
401C 2B1F; 
401E 2Ell; 
4020 30FB; 
4022 33DE; 
4024 36BA; 
4026 398C; 
4028 3C56; 
402A 3Fl7; 
402C 41CE; 
402E 447A; 
4030 4 7lC; 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 


..SINWAV.SR 


9 AUG 79 


4:20 PM 


..**************************.******.**.*** 
SINWAV.SR 


..SINWAV IS A LISTING OF HEX SINE VALUES 
SIN (2*PI*K/256) FOR K =0 TO 255 
..RANGING FROM ALMOST +1 (7FFF HEX) 
TO ALMOST -1 (8000 HEX) 
..IT IS FOR USE IN FFT DEBUG & TESTING 
..**************************************** 


ORG 114000 


SINFWA: 


..SIN 
..0 


,IiOOOO 
,110324 
,li0647 
,I1096A 
,IIOC8 B 
,//OF AB 
,1i12C8 
,li15E2 
,//18F8 
,II1COB 
,Ii1Fl9 
,112223 
,//2528 
,1/2826 
,li2B1F 
,II2Ell 
, t/30FB 
, ff33DE 
, f/36BA 
,li398C 
,//3C56 
,//3Fl7 
,li41CE 
,//447A 
,//4 HC 


..16 


B-46 



ASP FFT Program 
Run Time Code 
4032 49B4; 0046 ,II49B4 
4034 4C3F; 0047 ,II4C3F 
4036 4EBF; 0048 ,II4EBF 
4038 5133; 0049 ,115133 
403A 539B; 0050 ,#539B 
403C 55F5; 0051 ,II55F5 
403E 5842; 0052 ,#5842 
4040 5A82; 0053 ,II5A82 ..32 
4042 5CB4; 0054 ,II5CB4 
4044 5ED7; 0055 ,II5ED7 
4046 60EC; 0056 ,II60EC 
4048 62F2; 0057 ,II62F2 
404A 64E8; 0058 ,I164E8 
404C 66CF; 0059 ,II66CF 
404E 68A6; 0060 ,II68A6 
4050 6A6D; 0061 ,II6A6D 
4052 6C24; 0062 ,II6C24 
4054 6DCA; 0063 ,n6DCA 
4056 6F5F; 0064 ,n6F5F 
4058 70E2; 0065 ,#JOE2 
405A 7255; 0066 ,117255 
405C 73B5; 0067 ,#73B5 
405E 7504; 0068 ,117 504 
4060 7641; 0069 ,117641 ..48 
4062 776C; 0070 ,1I776C 
4064 7884; 0071 ,117884 
4066 798A; 0072 ,n798A 
4068 7A7D; 0073 ,#J A7D 
406A 7B5D; 0074 ,II7B5D 
406C 7C29; 0075 ,I17C29 
406E 7CE3; 0076 ,I17CE3 
4070 7D8A; 0077 ,II7D8A 
4072 7E1D; 0078 ,I17E1D 
4074 7E9D; 0079 ,I17E9D 
4076 7F09; 0080 ,I17F09 
4078 7F62; 0081 ,n7F62 
407A 7FA7; 0082 ,I17FA7 
407C 7FDB; 0083 ,II7FDB 
407E 7FF6; 0084 ,II7FF6 
4080 7FFF; 0085 ,II7FFF ..64 
4082 7FF6; 0086 , fl7FF6 
4084 7FD8; 0087 ,117 FD8 
4086 7FA7; 0088 ,I17FA7 
4088 7F62; 0089 .II7F62 
408A 7F09; 0090 ,II7F09 
408C 7E9D; 0091 ,II7E9D 
408E 7EID; 0092 ,fl7E 1D 
4090 7D8A; 0093 '117D8A 
4092 7CE3; 0094 ,II7CE3 
4094 7C29; 0095 ,I17C29 
4096 7B5D; 0096 .II7B50 
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4098 7A7D; 0097 ,117 A7D 
409A 798A; 0098 ,II798A 
409C 7884; 0099 ,117884 
409E 776C; 0100 ,1I776C 
40AO 7641; 0101 ,117641 ..80 
40A2 7504; 0102 ,117504 
40A4 73B5; 0103 ,II73B5 
40A6 7255; 0104 ,117255 
40A8 70E2; 0105 ,InOE2 
40AA 6F5F; 0106 ,II6F5F 
40AC 6DCA; 0107 ,II6DCA 
40AE 6C24; 0108 ,II6C24 
40BO 6A6D; 0109 ,II6A6D 
40B2 68A6; 0110 ,II68A6 
40B4 66CF; 0111 ,II66CF 
40B6 64E8; 0112 ,II64E8 
40B8 62F2; 0113 ,II62F2 
40BA 60EC; 0114 ,II60EC 
40BC 5ED7; 0115 ,II5ED7 
40BE 5CB4; 0116 ,II5CB4 
40CO 5A82; 0117 ,II5A82 ..96 
40C2 5842; 0118 ,115842 
40C4 55F5; 0119 ,II55F5 
40C6 539B; 0120 ,n539B 
40C8 5133; 0121 ,115133 
40CA 4EBF; 0122 ,/l4EBF 
40CC 4C3F; 0123 ,I14C3F 
40CE 49B4; 0124 ,I149B4 
40DO 471C; 0125 ,/l471C 
40D2 447A; 0126 ,/l447A 
40D4 41CE; 0127 ,I141CE 
4006 3Fl7; 0128 ,/l3Fl7 
40D8 3C56; 0129 ,/l3C56 
40DA 398C; 0130 ,I1398C 
40DC 36BA; 0131 ,/l36BA 
40DE 33DE; 0132 ,/l33DE 
40EO 30FB; 0133 ,/l30FB . .1l2 
40E2 2Ell; 0134 ,/l2Ell 
40E4 2B1F; 0135 .112B1F 
40E6 2826; 0136 ./12826 
40E8 2528; 0137 .112528 
40EA 2223; 0138 .112223 
40EC 1Fl9; 0139 ,/I1Fl9 
40EE 1COB; 0140 ./I1COB 
40FO 18F8; 0141 ./118F8 
40F2 15E2; 0142 ,IIl5E2 
40F4 12C8; 0143 ./112C8 
40F6 OFAB; 0144 .IIOF AB 
40F8 OC8B; 0145 ,IIOC8B 
40FA 096A; 0146 .11096A 
40FC 0647; 0147 .110647 
B-48 



ASP FFT Program 
Run Time Code 
40FE 0324; 0148 ,110324 
4100 0000; 0149 ,110000 ..128 
4102 FCDC; 0150 ,IIFCDC 
4104 F9B9; 0151 ,IIF9B9 
4106 F696; 0152 ,IIF696 
4108 F375; 0153 ,IIF375 
410A FOSS; 0154 ,IIF055 
410C ED38; 0155 ,IIED38 
410E EA1E; 0156 ,IIEA1E 
4110 E708; 0157 ,IIE708 
4112 E3F5; 0158 ,IIE3F5 
4114 EOE7; 0159 ,IIEOE7 
4116 DODD; 0160 ,IIDDDD 
4118 DAD8; 0161 ,IIDAD8 
411A 07DA; 0162 ,1107DA 
411C D4E1; 0163 ,IID4E1 
411E D1EF; 0164 ,IID1EF 
4120 CF05; 0165 ,IICF05 ..144 
4122 CC22; 0166 ,IICC22 
4124 C946; 0167 ,IIC946 
4126 C674; 0168 ,IIC674 
4128 C3AA; 0169 ,IIC3AA 
412A COE9; 0170 ,IICOE9 
412C BE32; 0171 ,IIBE32 
412E BB86; 0172 ,IIBB86 
4130 B8E4; 0173 ,IIB8E4 
4132 B64C; 0174 ,nB64C 
4134 B3C1; 0175 ,IIB3C1 
4136 B141; 0176 ,IIB141 
4138 AECD; 0177 , II AECD 
413A AC65; 0178 ,II AC65 
413C AAOB; 0179 ,II AAOB 
413E A7BE; 0180 ,IIA7BE 
4140 A57E; 0181 ,IIA57E ..160 
4142 A34C; 0182 ,nA34C 
4144 A129; 0183 ,IIA129 
4146 9Fl4; 0184 ,1I9Fl4 
4148 9DOE; 0185 , fl900E 
414A 9B18; 0186 ,119B18 
414C 9931; 0187 ,1/9931 
414E 975A; 0188 ,11975A 
4150 9593; 0189 ,119593 
4152 930C; 0190 ,1930C 
4154 9236; 0191 ,119236 
4156 90A1; 0192 ,1190A1 
4158 8FlE; 0193 .118FlE 
415A 8DAB; 0194 , fl8DAB 
415C 8C4B; 0195 . fl8C4B 
415E 8AFC; 0196 .1I8AFC 
4160 89BF; 0197 .1189BF . .176 
4162 8894; 0198 .118894 
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4164 877C; 0199 .11877C 
4166 8676; 0200 .118676 
4168 8583; 0201 .118583 
416A 84A3; 0202 .1I84A3 
416C 83D7; 0203 .1183D7 
416E 831D; 0204 .1I83lD 
4170 8276; 0205 .118276 
4172 81E3; 0206 .1I81E3 
4174 8163; 0207 .1/8163 
4176 80F7; 0208 .1I80F7 
4178 809E; 0209 .1I809E 
417A 8059; 0210 .118059 
417C 8028; 0211 .118028 
417E 800A; 0212 .1I800A 
4180 8000; 0213 .118000 ..192 
4182 800A; 0214 .1I800A 
4184 8028; 0215 .118028 
4186 8059; 0216 .118059 
4188 809E; 0217 .11809E 
418A 80F7; 0218 .1I80F7 
418C 8163; 0219 .118163 
418E 81E3; 0220 .1I81E3 
4190 8276; 0221 .118276 
4192 83lD; 0222 .1I83lD 
4194 83D7; 0223 .1I83D7 
4196 84A3; 0224 .#84A3 
4198 8583; 0225 .118583 
419A 8676; 0226 .118676 
419C 877C; 0227 .1I877C 
419E 8894; 0228 .118894 
41AO 89BF; 0229 .1189BF . .208 
41A2 8AFC; 0230 .1I8AFC 
41A4 8C4B; 0231 .1I8C4B 
41A6 8DAB; 0232 .118DAB 
41A8 8FlE; 0233 .1I8FlE 
41AA 90Al; 0234 .1I90Al 
41AC 9236; 0235 .119236 
41AE 93DC; 0236 .1193DC 
41BO 9593; 0237 .119593 
41B2 975A; 0238 .11975A 
41B4 9931; 0239 .119931 
41B6 9B18; 0240 .119B18 
41B8 9DOE; 0241 .119DOE 
41BA 9Fl4; 0242 .119Fl4 
41BC A129; 0243 .IIA129 
41BE A34C; 0244 . II A34C 
41CO A57E; 0245 . lIAS 7E ..224 
41C2 A7BE; 0246 .IIA7BE 
41C4 AAOB; 0247 .IIAAOB 
41C6 AC65; 0248 .IIAC65 
41C8 AECD; 0249 . II AECD 
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41CA B141; 
41CC B3C1; 
41CE B64C; 
4lDO B8E4; 
41D2 BB86; 
4lD4 BE32; 
41D6 COE9; 
4lD8 C3AA; 
41DA C674; 
41DC C946; 
41DE CC22; 
41EO CF05; 
41E2 D1EF; 
41E4 D4E1; 
41E6 D7DA; 
41E8 DAD8; 
41EA DDDD; 
41EC EOE7; 
41EE E35F; 
41FO E708; 
41F2 EA1E; 
41F4 ED38; 
41F6 FOSS; 
41F8 F375; 
41FA F696; 
41FC F9B9; 
41FE FCDC; 
4200 
4200 


0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 SINLWA: 
0278 


./lB141 
./lB3C1 
./lB64C 
.IIB8E4 
,#BB86 
./lBE32 
./lCOE9 
.IIC3AA 
./lC674 
,/lC946 
,/lCC22 
./lCF05 
,/lD1EF 
./lD4E1 
.IID7DA 
./lDAD8 
./lDDDD 
.IIEOE7 
./lE35F 
.IIE708 
./lEA1E 
./lED38 
.IIF055 
.f1F375 
.IIF696 
.IIF9B9 
./lFCDC 
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. .240 


..255 



APPEND [X C 


1802 I
ST
UCT[O
 SET 


C.l RCA 1802 COSMAC INSTRUCTION SET 


The COSMAC Instruction Summary is given in the 


tabulations 


below. 


Hexadecimal notation is used to refer to the 4-bit binary code. In all 


registers the bits are numbered from the Least Significant Bit (LSB) to the Host 


Significant Bit (NSB). starting with O. 


Register Operations 


OP 
INSTRUCTION MNEMONIC CODE OPE RATION 
INCREMENT REG N INC 1N R(N) +1 
DECREMENT REG N DEC 2N R(N) -1 
INCREMENT REG X IRX 60 R(X) +1 
GET LOW REG N GLO aN R(NLo-O 
PUT LOW REG N PLO AN D-R(NLO 
GET HIGH REG N GHI 9N R(NL1-D 
PUT HIGH REG N PHI BN D-R(NL1 


Memory Reference 


INSTRUCTION 
L A V 
LOAD ADVANCE 
LOAD VIA X 
LOAD VIA X AND ADVANCE 
LOAD IMMEDIATE 
STORE VIA N 
STORE VIA X AND 
DECREMENT 


MNEMONIC 
L N 
LOA 
LOX 

DXA 
LDI 
STR 
STXD 


OP 
CODE 
ON 
4N 
Fa 
72 
Fa 
5N 
73 


OPE RAT ION 
M N NO 
M(R(N))-D;R(N) +1 
M(R(X))-D 
M(R(X))-D; R(X) 
1 
M(R(P))-D; R(P) + 1 
D-M(R(N)) 
D-M(R(X)); R(X)-1 
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Logic Operations.. 


OP 
INSTRUCTION MNEMONIC CODe OPERATION 
OR OR F1 MIRIXI) OR D-D 
OR IMMEDIATE OR I F9 MIR/PI) OR D-O; RIP) +1 
EXCLUSIVE OR XOR F3 MIRIX)I XOR D-D 
EXCLUSIVE OR IMMEDIATE XRI FB M(RIPI) XOR D-D: RIPI +1 
AND AND F2 M(R(XI) AND D-D 
AND IMMEDIATE ANI FA M(R(PI) AND D-D. RIP) +1 
SHIFT RIGHT SHR FS SHIFT D RIGHT, LSBID)-DF. 
7S. D-+MSBIDI 
SHIFT RIGHT WITH SHRC 1 SHIFT D RIGHT. LSBIDI-DF, 
CARRY DF-MSB(DI 
RING SHIFT RIGHT RSHR 
SHIFT LEFT SHL FE SHIFT 0 LEFT, MSBIDI-DF, 
7E. D-+LSBIDI 
SHIFT LEFT WITH SH LC j SHIFT D LEFT, MSBIDI-DF. 
CARRY DF-LSB(O) 
RING SHIFT LEFT RSHL 


.NOTE THIS INSTRUCTION IS ASSOCIATED WITH MORE THAN ONE 
MNEMONIC EACH MNEMONIC IS INDIVIDUALL V LISTED 
"NOTE THE ARITHMETIC OPERATIONS AND THE SHIFT INSTRUCTIONS 
ARE THE ONL V INSTRUCTIONS THAT CAN AL TER THE OF 
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Arithmetic Operations.. 


INSTRUCTION MNEMONIC OP 
CODE OPERATION 
ADD ADD F4 MIRIXII 
D-OF, 0 
ADD IMMEDIATE AOI FC MIR(P)) 
D-OF. 0: RIP) +1 
ADD WITH CARRY AOC 74 MIRIXII +0 +OF.OF 0 
ADD WITH CARRY AOCI 7C MIRIP)) +0 
OF.OF 0 
IMMEDIATE R/P) 
1 
SUBTRACT 0 SO F5 MIR(XII-D-OF. 0 
SUBTRACT 0 IMMEDIATE SOl FO M(RIPII-D-OF, O. RIP) +1 
SUBTRACT 0 WITH SOB 75 MIR(XII-O-INOT OF).OF, 0 
BORROW 
SUBTRACT 0 WITH SOBI 7D MIR(PII-O-INOT OFI.OF. 0, 
BORROW, IMMEDIATE R(P) +1 
SUBTRACT MEMORY SM F7 O-MIR(X)).OF. 0 
SUBTRACT MEMORY SMI FF O-MIRIP)).OF. O. 
IMMEDIATE RIP) 
1 
SUBTRACT MEMORY WITH 5MB 77 O-MIRIXII-INOT OFI.OF, 0 
BORROW 
SUBTRACT MEMORY WITH 5MBI 7F O-MIRIPII-INOT OF)-OF. 0 
BORROW, IMMEDIATE RIP) +1 


Branch Instructions - Short Branch 


SHORT BRANCH BR 30 MIRIPII-RIP) 0 
NO SHORT BRANCH NBR 38. RIP) +1 
ISEE SKP) 
SHORT BRANCH IF 0=0 BZ 32 IF 0=0, MIRIPII-RIPJO 
ELSE RIP) +1 
SHORT BRANCH IF BNZ 3A IF 0 NOT 0, MIRIPII-RIP) 0 
o NOT 0 ELSE RIP) +1 
SHORT BRANCH IF OF=l BOF I 
SHORT BRANCH IF POS BPZ 33. IF OF=l, MIRIPII-R(PLO 
OR ZERO \ ELSE RIP) +1 
SHORT BRANCH IF EQUAL BGE 
OR GREATER 
SHORT BRANCH IF OF=O BNF 
 3B. IF OF-O. MIRIP)I-RIP) 0 
SHORT BRANCH IF MINUS BM ELSE RIPI +1 
SHORT BRANCH IF LESS BL 
SHORT BRANCH IF Q=l BQ 31 IF Q= 1. MIR(PII-RIPJ.O 
ELSE RIP) +1 
SHORT BRANCH IF Q=O BNQ 39 IF Q=O, MIRIP))-RIPIO 
ELSE RIP) +1 
SHORT BRANCH IF EF1-=1 B1 34 IF EF1=l, M(RIPII-R(PLO 
( 1 = VSS) ELSE RIP) +1 
SHORT BRANCH IF EF1 =0 BN1 3C IF EF1=0. MIRIPII-R(PI.O 
(0 = VCC) ELSE RIPI +1 
SHORT BRANCH IF EF2=1 B2 35 IF EF2=l, M(R(P))-RIPI.O 
(1 = VSS ) ELSE RIP) +1 
SHORT BRANCH IF EF2=0 BN2 3D IF EF2=O, M(R(P))-RIPLO 
(0 = Vcc) ELSE RIP) +1 
SHORT BRANCH IF EF3=1 B3 36 IF EF3=1. MIRIPII-R(PLO 
(1 = VSS) ELSE RIP) +1 
SHORT BRANCH IF EF3=0 BN3 3E IF EF3=0. MIRIP))-RIPLO 
(0 '" V CC ) ELSE RIPI +1 
SHORT BRANCH IF EF4=1 B4 37 IF EF4=1. MIRIP))-RIPI.O 
(1 '" VSS) ELSE RIP) +1 
SHORT BRANCH IF EF4=0 BN4 3F IF EF4=0. MIR(PII-RIPI.O 
(0'" VCC) ELSE RIP) +1 
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Branch Instructions - Long Branch 


OP 
INSTRUCTION MNEMONIC CODE OPERATION 
LONG BRANCH LBR CO MIRIP))-RIPI.1 
MIR(P) +l)-RIPI.O 
NO LONG BRANCH NLBR cs. RIP) +2 
(SEE LSKP) 
LONG BRANCH IF 0=0 LBZ C2 IF 0=0, MIRIPII-RIP) 1 
MIRIP) +1)-RIPI.O 
ELSE R(P) +2 
LONG BRANCH IF 0 NOT 0 LBNZ CA IF 0 NOT 0, MIRIPII- 
R (PI. 1 
MIRIP) +1)- 
R (PI.O 
ELSE RIP) +2 
LONG BRANCH IF OF=l LBOF C3 IF OF=l, MIRIPII-RIPI.1 
MIR(P) +1)- 
R(PI.O 
ELSE R(P) +2 
LONG BRANCH IF OF=O LBNF CB IF OF=O, MIRIPII-R(PI.1 
MIR(P) ..1)- 
R(PI.O 
ELSE RIP) ..2 
LONG BRANCH IF 0=1 LBO C1 IF 0=1, MIRIPII-RIPI.1 
M(R(P) +l)-RIP) 0 
ELSE RIP) +2 
LONG BRANCH IF 0=0 LBNO C9 IF 0=0, M(RIPII-R(PI.1 
MIRIP) +1)- 
RIP).O 
ELSE RIP) +2 


Skip Instructions 


OP 
INSTRUCTION MNEMONIC CODE OPERATION 
SHORT SKIP SKP 3S. RIP) +1 
ISEE NBR) cs. 
LONG SKIP LSKP RIP) ---2 
(SEE NLBR) 
LONG SKIP IF 0=0 LSZ CE IF 0=0, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF 0 NOT 0 LSNZ C6 IF 0 NOT 0, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF OF=l LSOF CF IF OF=l, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF OF=O LSNF C7 IF OF=O, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF 0=1 LSO CO IF 0=1, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF 0=0 LSNO C5 IF 0=0, RIP) +2 
ELSE CONTINUE 
LONG SKIP IF IE=l LSIE CC IF IE=l, R(P) +2 
ELSE CONTINUE 


.NOTE THIS INSTRUCTION IS ASSOCIATED WITH MORE THAN ONE 
MNEMONIC EACH MNEMONIC IS INDIVIDUALLY LISTED. 
..NOTE: THE ARITHMETIC OPERATIONS AND THE SHIFT INSTRUCTIONS 
ARE THE ONLY INSTRUCTIONS THAT CAN ALTER THE DF. 
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Control Instructions 


OP 
INSTRUCTION MNEMONIC CODE OPERATION 
IDLE IDl 00 WAIT FOR DMA OR 
INTERRUPT; M/RIO))-BUS 
NO OPERATION NOP C4 CONTINUE 
SET P SEP DN N-P 
SET X SEX EN N-X 
SET a SEa 7B 1-+0 
RESET a REO 7A 0-+0 
SAVE SAV 78 T-MIRIX)) 
PUSH X.p TO STACK MARl( 79 /X.P)-T; /X,P)-M/RI2)) 
THEN P-X; R(2)-1 
RETURN RET 70 M/RIX))-/X.P); RIX) +1 
1-IE 
DISABLE DIS 71 MIRIX))-IX.P); R(X) +1 
O-+IE 


Input-Output Byte Transfer 


OP 
INSTRUCTION MNEMONIC CODE OPERATION 
OUTPUT 1 OUT 1 61 M/R(X))-BUS; R(X) +1; 
N LINES = 1 
OUTPUT 2 OUT 2 62 M(R(X))-BUS; R(X) +1; 
N LINES = 2 
OUTPUT 3 OUT 3 63 M/RIX))-BUS; R/X) +1; 
N LINES = 3 
OUTPUT 4 OUT 4 64 MIR/X))-BUS; RIX) +1; 
NLINES=4 
OUTPUT 5 OUT5 65 M(RIX))-BUS; RIX) +1; 
N LINES = 5 
OUTPUT 6 OUT 6 66 M(R(X))-BUS; R(X) +1; 
NLlNES=6 
OUTPUT 7 OUT 7 67 M/R(X))-BUS; R(X) "'1; 
N LINES = 7 
INPUT 1 INP 1 69 BUS-M(R(X)); BUS-O; 
N LINES = 1 
INPUT 2 INP 2 6A BUS-MIRIX)); BUS-O; 
N LINES = 2 
INPUT 3 INP 3 6B BUS-MIR(X)); BUS-D; 
N LINES = 3 
INPUT 4 INP 4 6C BUS-MIRIX)); BUS-O; 
N LINES = 4 
INPUT 5 INP 5 60 BUS-MIR IX)); BUS-O; 
N LINES = 5 
INPUT 6 INP 6 6E BUS-MIR(X)); BUS-O; 
N LINES = 6 
INPUT 7 INP 7 6F BUS-M(R/X)); BUS-O; 
N LINES = 7 


.NOTE THIS INSTRUCTION IS ASSOCIATED WITH MORE THAN ONE 
MNEMONIC EACH MNEMONIC IS INDIVIDUALLY LISTED 
"NOTE THE ARITHMETIC OPERATIONS AND THE SHIFT INSTRUCTIONS 
ARE THE ONLY INSTRUCTIONS THAT CAN ALTER THE OF 
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The following listings are examples of the Program Validation Outputs. The 
first section gives snapshots of the outputs of the subprograms (INPUT. SCALE. 
FFT. etc.). first for a single P-FFT. then for a single S-FFT. The second 
section shows a sequence of inputs (from Impulse to DC) and the resultant 
outputs. for both a P-FFT and an S-FFT. 


All the samples included are for an FFT Length of 128 (other runs were used 
to confirm operation of all various FFT lengths). Data is utilized as 16-bit 
Fixed Point Twos-Complement. represented in hexadecimal notation (thus four 
symbols per data item). Data in locations 3601 to 3AOO IS P-FFT data. In 
locations 3A01 to 3EOO the data is either in-place S-FFT data. or P-FFT data 
which has been moved to the S-FIFO for computational efficiency (see Section 
5.1.3.7). 


For all of the outputs listed the SHAPE subprogram was not called. This is 
because tbe time domain lengtbs utilized are assumed to be perfect segments of a 
periodic waveform. Thus Frequency Leakage is not an issue. Said another way. 
for these examples. pretty outputs were desired. Other Program Validation 
sequences were run where the SHAPE subprogram was tested. 
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ASP FFT Program 
Program Validation Output 


Finally, for most of these examples, the MAGAPX subprogram was not used. 1 


its place a MAGSQ (Magnitude Squared) routine was utilized (program listing no 


avalable). This simply performed the Sum of the Squares (R-2 + 1-2) on th 


Complex data. Again, these outputs are included for cosmetic purposes. Othe 


listings validated the performance of the MAGAPX subprogram. 


D.l SUBPROGRAM VALIDATION SERIES 


D.I.I P-FFT, Impulse Input 


Input Series 


36Ø1 7FFF øøøø øøøø øøøø øøøø øøøø øøøø øøøø; 
3611 øøeø øøøø øeøø øøøø øøeø øøøø øøøø øøøe; 
3621 øøøø øøøø eeeø øeøø øøeø øøøø øøøø øeøø; 
3631 øøee øøeø øøøø eøøe øøøø øøøø øøøø øøøø; 
3641 .øeø øøøø øeøø øøøø øøøø .øøø øøøø øøøø; 
3651 øøeø ø.e. øø.ø øøøø øøøø øøøø øøøø øøøø; 
3661 øøee øøe. øøøø øøøø øøøø øøøe øøøø øøøø; 
3671 øøøø øøø. øøøø øeøø øøøø øøeø øøø. øeøø; 
3681 eøeø øøøe øøeø øøøø øøøø øøøø øeøø øø.ø; 
3691 øøee øøeø eøeø øeøø øøeø øøøø øøøø øøøø; 
36A1 øøøø .øøe øø.ø .øøø ø.øø øøeø øeøø øø.ø; 
3681 øøeø øøeø øøeø øøøø øøeø øøøe øeøø øøøe; 
36C1 øøøe øeøø eøøø øøøø øøøø øøøø eøø. øeøø; 
36D1 .øøø øeøø øøøø eøøø øøøø øøøe øøøø øøøe; 
36E1 eøøø eøøø øøeø øeøø øøø. øøøø øøøø øeøø; 
36F1 eøøø øøee øøeø øøøe øøøø øøøø øøøø øøø
 


SCALE Output 


36Ø1 7FFF øøøe øøøø øøøø øøøø øøeø øøøø øøøø; 
3611 øeeø øøøe øøee øeøø øøøø øøøø øeøø øøøø; 
3621 øøøø øeøe øøeø øøøø ø.øø øøeø øøøø øøøø; 
3631 øøøø eøøe øøeø øøøe øøøø øøøø øøøø øøøø; 
3641 øøøø øeøe øøee øøøø øøøø øøeø eøøø øeøø; 
3651 øøee eøøe eøeø øøøø øøøø øøøe ø.øø øøeø; 
3661 øøøø øøøe eøøø øøøø øøeø øøøø øøeø øøøø; 
3671 øøeø øøeø øø.ø øøøe øøøø øøøø eøøø øøeø; 
3681 øøøø øøe. eøøø øøøe øøøø øøøø øøøø øøøe; 
3691 øøøø øøøø øeøø øøøø øøøø øøeø eøøø øøøø; 
36A1 øøeø øeøe ø.øø eøøø øøøø øøøø øøøø øøøe; 
36B1 øøøø øeøe øøøø øøøø øøøø øøøø øøøø øeøø; 
36C1 eøøø øøøø eeøø øøøø øøøø øøøø øøøø øøøø; 
36D1 eøeø øeøø eeøø øøøø øøøø øøøè øøøø øøøø; 
36E1 eøøe øøøe øeøø øøøø øøøø øøeø øøøø øøøø; 
36F1 eeeø øøee øøøø øøøø øøøø øøøe øøøø øøøø 
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Program Validation Output 


3A131 1FFF "øøe 1FFF ""øø 1FFF "øø" 1FFF "øøø; 
3A11 1 FFF eeee 1FFF eø". 1FFF øøøø 1FFF øøe,,; 
3A21 1FFF ø.øø 1 FFF "'"'' 1FFF IØØØ 1FFF øeøø; 
3A31 1 FFF .øøe 1 FFF .ø"ø 1FFF ""e" 1FFF øøøø; 
3A41 1 FFF øøøø 1FFF .""ø 1FFF .""e 1FFF øøøe; 
3A51 1 FFF eøøe 1FFF ø".ø 1FFF ""." 1FFF øøø,,; 
3A61 1 FFF .øøe 1FFF I""e 1FFF ø"ø. 1FFF "vøø; 
FFT Output 3A71 1 FFF .øøe 1FFF "e"" 1FFF ø."ø 1FFF øøøø; 
3AB1 1FFF .eee 1FFF ."ø. 1FFF øøøø 1FFF øøøø; 
3A91 1 FFF øøee 1FFF øe"" 1FFF ø"øe 1FFF IØ"Ø; 
3AA1 1 FFF øøøø 1FFF .øøø 1FFF ø"øø 1FFF "ø.ø; 
3AB1 1 FFF .øøø 1FFF øøøe 1FFF ."øe 1FFF "ø.ø; 
3AC1 1FFF .ee. 1FFF ø".ø 1FFF ø"eø IFFF "eø,,; 
3AD1 1 FFF øøøø 1FFF IØ"" 1FFF '''Ø' 1FFF ø"øø; 
3AE1 1 FFF eøøe 1FFF "e"" 1FFF "ø,," 1FFF "eøø; 
3AF1 1 FFF .øøe 1FFF ."øe 1FFF """e 1FFF ø"øø 
3AØ1 1FFF .""e 1FFF 13"'" 1FFF ""eø 1FFF øøø,,; 
3A11 1 FFF .øøe 1FFF øeøø 1FFF ."". 1FFF .øøø; 
3A21 1FFF ..e. 1FFF ."". 1fFF "
.,, 1FFF "Øl"; 
3A31 1FFF ...e IFFF '''''' 1FFF .""e 1FFF øøø,,; 
3A41 1FFF ..ee 1FFF øøø" 1FFF ""eø 1FFF "øøø; 
3A51 1FFF .... 1FFF '"'''' IFFF øøøø 1FFF øøø.; 
3A61 1FFF .e.ø IFFF ø.øø 1FFF "e"ø 1FFF øe",,; 
UNSCRM Output 3A71 1FFF ...e 1FFF ."ø. 1FFF """. 1FFF ""ø,,; 
3AB1 1FFF ...ø 1FFF ø."" 1FFF ."". 1FFF eøøe; 
3A91 1FFF .e.e 1FFF "ø". 1FFF "øe" 1FFF øø.,,; 
3AA1 1FFF .e.e 1FFF ,ø". 1FFF ."øe 1FFF ""'''; 
3AB1 1FFF ...e 1FFF "eøø 1FFF ""e" IFFF "eøø; 
3AC1 1FFF e... IFFF '''''' 1FFF .ø"e 1FFF "ø.,,; 
3AD1 1FFF .... 1FFF "."" 1FFF '''''ø IFFF ø.ø,,; 
3AE1 IFFF ...e IFFF .""e 1FFF øø.ø 1FFF ø"øø; 
3AF1 1FFF .eee 1FFF ,"øø 1FFF .øøe 1FFF øøøø 
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ASP FFT Program 
Program Validation Output 


ORDER Output 


MAGSQ Output 


3AØl 3FFE øøøe 3FFE øøeø 3FFE øøøø 3FFE øøøø; 
3A11 3FFE eeøe 3FFE øeøø 3FFE øøøø 3FFE øøøø; 
3A21 3FFE eøeø 3FFE øøøe 3FFE øøøø 3FFE øøøø; 
3A31 3FFE øøee 3FFE øøøe 3FFE øøøe 3FFE øøøø; 
3A41 3FFE eøøi 3FFE øøøø 3FFE øøøø 3FFE øøøø; 
3A51 3FFE øøeø 3FFE øøøe 3FFE øøøø 3FFE øøøø; 
3A61 3FFE øeøe 3FFE øeøø 3FFE øøøø 3FFE øøøø; 
3A71 3FFE eøeø 3FFE øøøø 3FFE øøeø 3FFE øøøø; 
3AB1 3FFE øeøe 3FFE øøøø 3FFE eøøø 3FFE øøøø; 
3A91 3FFE øøøe 3FFE øøøø JFFE øøøø 3FFE øeøø; 
3AA1 3FFE øeøø 3FFE øøøø 3FFE øøøe 3FFE øøøø; 
3AB1 3FFE øeøe 3FFE øøøø 3FFE øøøø 3FFE øøøø; 
3AC1 3FFE øøøø 3FFE øøøø 3FFE øøøe 3FFE øøøø; 
3AD1 3FFE øøeø 3FFE øeøø 3FFE øøøe 3FFE øøøø; 
3AE1 3FFE øøøe 3FFE øøøø 3FFE øøøø 3FFE øøøø; 
3AF1 3FFE øeøe 3FFE øøøø 3FFE øøøe 3FFE øøøø 


3AØ1 7FFC øøøø 7FFC øøøø 7FFC øøøø 7FFC øeøø; 
3A11 7FFC øøee 7FFC øøøø 7FFC øøøø 7FFC øøøø; 
3A21 7FFC øøøø 7FFC øøøø 7FFC øøøø 7FFC øøøø; 
3A31 7FFC øeøø 7FFC øøøe lFFC øøøø 7FFC øøøø; 
3A41 7FFC øøøø 7FFC øøøø 7FFC øøøø 7FFC øeøø; 
3A51 7FFC øøøø 7FFC øøøø 7FFC øøøø 7FFC øø
ø; 
3A61 7FFC øeøø 7FFC øeøø 7FFC øøøø 7FFC øøøø; 
3A71 7FFC øøeø 7FFC øøøe 7FFC øøøø 7FFC øøøø; 
3A81 7FFC eeøø 7FFC eøøø 7FFC øøøø 7FFC øøøø; 
3A91 7FFC øeeø 7FFC øøøø 7FFC øøøø ìFFC øøøø; 
3AA1 7FFC eøøe 7FFC øøøø 7FFC øøøø 7FFC øøøø; 
3AB1 7FFC øøeø 7FFC øøøø 7FFC øøøø 7FFC øøøø; 
3AC1 7FFC øøøe 7FFC øøøø 7FFC øøøe 7FFC øøøø; 
3AD1 7FFC øøøø 7FFC øøøø 7FFC øøøe 7FFC øøøø; 
3AE1 7FFC øøøø 7FFC øøø. 7FFC øøøø 7FFC øøøe; 
JAF1 7FFC øøøø 7FFC øøøe 7FFC øøøø 7FFC øøøø 
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D.l.2 S-FFT. DC Input 


Input Series 


JAØt øaøø 
Søø øaøø øeøø øaøø ØS0Ø 0aøø øaøø; 
JAtt øaøø øaøø øaøø Ø8ØØ øaøø Ø8ØØ øaøø øaøø: 
3A21 øaøø eaøl eaeø øaø
 0aøø 98ØØ 0aøø øaøø; 
3A31 øall øaøl lalø 08ØØ øaøø øaøø øaøø ØSøø; 
3A41 lall øasl øaøs øsøø 0aøø Ø8ØØ øaøø Ø8ØØ; 
3A51 øaeø eall laeø Ø8øØ øaøø øaøø Ø8ØØ øa00; 
3A6t øaøø eaøø øaøø esøø øaøø Ø8ØØ 0aøø øa0ø; 
3A71 øaøø øaøø øaøø øaøø øaøø øaøø øaøø øaøø; 
3ABt øaøø iaøø øaøø Ø8ØØ øaøø øaøø øaøø Ø8ØØ; 
3A91 øaee øaee øaøe øaøø Ø8ØØ ØSøø 
aøø Ø8

; 
JAAI øaeø 0aøø øaøø ØSøø ø
øø Ø8
Ø 08ØØ ØS0
; 
3ABt øaøø eaes øSet øaøø øaø
 ØSøø øaøø øaøø; 
JAC1 øaøø øasø øaøø øaøø eaøø øaøø Ø8ØØ øaøø; 
3AD1 øBøØ øaøø øaeø ø8ØØ ØSøø øaøø øaøø ØSøø: 
3AE1 øSøø eaeø øaøe øaøø øaøø iSØØ øaøø øaø
; 
3AFt øaøø øaøø øaøø 'Søø 0aøø øaøø 0aøø ØSøø 


SCALE Output 


3AØ1 4ØøØ 4ØØØ 4øØØ 4ØøØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ; 
3A11 4øØø 4øøe 4ØØØ 4ØØØ 40ØØ 4ØØØ 4ØØØ qø
ø; 
3A21 4øøØ 4ØØø 4øøØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 400Ø; 
3A31 4ØØø 40øØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ: 
3A41 4eøø 4ØøØ 4ØØØ 4ØØØ 40ØØ 4ØØØ 4ØØØ 4ØØØ: 
JA51 4øøø 4ØøØ 4ØØØ 4
ØØ 4jØØ 
øøø 4
0ø 4ØØØ; 
JA61 4iØ0 4ØØØ 4øØ
 4ØØØ 4øØØ 4Ø
Ø 4j06 406Ø; 
3A7t 4ØØØ 4ØØØ 4iØØ 4ØØØ 4ØØØ qøøø 4Ø
Ø 4
ØØ; 
3Aa1 4ØøØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ; 
JA9t 4ØØØ 4ØØØ 4ØØØ 4ØØØ 40ØØ 4ØØØ 4ØØØ 40ØØ: 
3AA1 4ØøØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 
øøø 4ØØØ 4ØØ
; 
3ABt 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4øØØ 4ØØØ; 
3ACt 4øøØ 4ØØØ 4ØøØ 4ØØØ 4øØØ 4ØØØ 4ØØØ 4ØØØ; 
3ADt 4øØØ 4øeø 4øøø 4øøe 4ØØØ 4ØØØ 4ØØØ 4ØØØ; 
3AE1 4øØø 4ØØØ 4ØØØ 4øØØ 4øøe 4ØØØ 4ØØØ 4ØØØ; 
3Af1 4øØØ 4øØØ 4ØØØ 4ØØØ 4ØØØ 4ØØØ 4øØØ 4ØØØ 
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FFT Output 


JAØl 38EE 396E FFØ2 ØØ82 FF8
 ØØ
0 

öð tEØ
; 
JAIl ffS8 1119 fEA8 FEF0 FFEE ØØjA 0212 FfA6; 
JA21 
øØS .18D fE91 FfDD FFDB Ø
Øl Ø18F fESF; 
3A31 ff32 1168 FF62 fE2C Ff9ö Ø0AØ Ø1Uö øØCC; 
3A41 160E FD0D FF32 ØØC9 ØØ9A ØØØD ØØF6 FF4D: 
3ASI liAS 114A FF2D FF46 ØØ75 ØØEØ 
ØES Ø264; 
3A61 "EC .eC2 FFB4 fF82 ØØB6 eø66 017A ø
ìE; 
3A71 ..6A 'IIF .IØ2 FEEl FFDA Ø115 FCEA Ø6C9: 
3A81 1.37 F77F leSB ØØ4F ØØ17 FF81 014F FEA1; 
JA91 FfBF FfD6 fF47 FEF2 Ø063 Ø944 Ø297 0158; 
3AAI Ø.4E FF78 Ffló fFC4 Ø'6A FFCA Ø242 FFA2: 
3ABI fFBf Ff97 øe23 FE6F FFF3 'Ø91 Ø22F 9409: 
3ACI .399 .21C FE91 ØØ9Ø ØØ2J ØØ7A ØØAB FEDA: 
3ADI .114 .111 FED8 fEDl FfD4 .11S FfFC Ø199; 
3AEI "DA .IDB fE62 FFAB IØ31 0.Cl IØF4 FFD9; 
3AFI FfF2 Ø.91 FFC2 FE79 Ff2A .115 F71ó Ø1El 


UNSCRM Output 


3AØl 38EE 396E Ø.37 F77F Ø60E FD0D e399 021C: 
3All lees 118D 1'4E FF78 Ø
EC ØØC2 ØØUA elBB: 
3A21 FFS8 .,,1 FFBF FFD6 øeA5 ØØ4A ØØ04 0111; 
3A31 FF32 ..68 FFBF FF97 ØØ6A ØØØB FFF2 0091; 
3A41 Ff81 leø. IØ17 Ff81 IØ9A ØØØD ØØ2ì Ø07A; 
3AS1 FFDB 1117 le6A fFCA ØøBó ØØó6 0ØJ0 ØØCI: 
3A61 FFEE e'SA ..63 øe44 ØØ75 øØEØ FFD4 Ø115: 
3A71 Ff96 .IAI fff3 Ø
91 FfDA 0115 F
2A 
11
; 
3A81 FF.2 ØØ82 elSB eø4F FF32 ø0C9 FE91 Ø
9i; 
JA91 FE91 FFDD Ffió FFC4 fFB4 FF82 FE62 FFAB; 
3AAI fEA8 fEf. fF4J fEF2 FF2D FF46 FED8 FEDt; 
3AB1 FF62 fE2C .123 FE6F ØØØ2 FEE7 FFC2 FEJ9: 
3AC1 ee81 fEee .14F FEAl ØØF6 FF4D Ø9AÐ FEDA; 
3AD1 118F FE8f 0242 FfA2 017A ØØ7E ØØF4 FFD9: 
3AEI 1212 fFA6 1297 Ø1S8 Ø'ES 0264 FFFC 01Ø9; 
JAf1 Ø1D6 øøce 122F Ø469 FCEA &óC9 Fì1ó 01E1 
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ORDER Output 


3AØ1 725C øøøø F81E F66B 92F9 F66ó ø601 FDAE: 
JA11 ø241 ØIØC ØØSB FFØ4 Ø268 FEB9 Ø376 ØØ7
: 
3A21 ø18F ø107 øØ7l ØøvF Ø19B ØØ1
 
2
j ØI8
; 
3A31 8ø98 ø233 FFOA Ø136 ØØ9C ØØCD ØØC8 01CØ; 
JA41 FFA6 e212 FF1E ø12A FFBE ØØCD FFDØ Ø118; 
JASI FEEC ø18F FE97 ØØB1 FF31 ØØSA FF41 ØØD9: 
3A61 FE91 øØCD FE6E ØØØI FFC8 ØØ67 FF25 ØØ28: 
JA71 FE9F løØE FEA7 FF5A FF4A FF32 ØØ62 FFBB: 
3A81 FFø2 FFSe FF22 FEFS FFC2 FEEó FFDÐ FFSA; 
3A91 FF87 FF4A FFBS FED8 ØØ6Ø FFØ9 ØØS6 FF67: 
3AA1 ø.øS FF63 øø3S FFØB ØØBI FF3A ØØAB FFB1: 
JAB1 øøse FFB5 øe78 FF6C ØØDE FFA7 ØØBA ØØ2
: 
3AC1 øeSA ee12 øø78 FFDØ øØC4 øøeF 
Ø8E ØØ7A: 
3AD1 ee28 e8S9 øø43 øØ15 ØØ83 øø
C ØØ3
 

A1; 
3AE1 FFDB øebD FFFA 
Ø1D FF68 ØØ
B FFEF ØØ94; 
JAFI FF99 ee4C FFCS FFFA 
øØ8 

22 FF2E øØCú 


HAGAPX Output 


3AØ1 392E øøøø Ø6Bß øøøø 04CC øøøø Ø32E 0
ØØ; 
3A11 ø142 øøee eø82 øøøø Øt68 10ØØ ØIBB øøøø; 
JA21 e14C øeee lø68 øøøø ØØCD øøøø Ø158 øø
ø: 
3A31 ell' øeøø øe9B øøøø ØØS8 øøøø ØØF8 0ØØØ: 
3A41 ø1ø9 øøøe øøCS øøøø Ø066 øøøø ØØBC øøøe: 
3AS1 ø1ø2 øøøø .øCE øøøø 0Ø/2 øøøø eø9C øøøø; 
3A61 eøOA seøe øøC9 øøøe ØS3C øøøø ØS6E 

øø: 
3A71 ØøBI øeee øeC4 øøøø ØØ94 øøøø ØØ4ð øøøø: 
3A81 eø92 eøøe øeBA øøøø ØØSD øøøø ØØ53 
Ø9Ø: 
JA91 ø874 øøøe øø8E øøøø Ø
82 ø

ø ØØ5A Ø

0; 
JAA1 øø4F øøøe øøìH øø
ø 
Ø8E øøøø eøsc øøø
: 
JAB1 øØ3A eeøe e966 øøøø ØØìó øøøø Øø5D øøøø; 
JACI ø02D øøeø ee4ø 
øøø øØ62 øøøø ø
64 øøøø: 
3AD1 øø3e øøeø Ø02Ø øøøø Ø
4E øøøø Ø052 øøøø; 
3AE1 0Ø36 S0ØØ øSøE Ø9ØØ ØØ5C øøøø ØØ4A ø
øø: 
3AF1 0Ø44 ØøØ0 øel
 øøøø Øø11 øøøø ØØ9E øøøø 
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ASP FFT Program 
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D.2 INPUT/OUTPUT VALIDATION SERIES 


D.2.1 P-FFT, Impulse to DC Series 


Impluse Time Input 
(1 of 128) 


36Ø1 øaeø øøøe øøøø øøøø øøøø øøøø eøøø øøøø; 
3611 øøøe øøee øøeø øeøø øeeø øøøø øøøø øøeø: 
3621 eøøø øøee øeeø eøøe øeøø øøøø øøøø øøøø; 
3631 øøøe eøee eøeø øøøe øøeø øøøe øeøø øøøø: 
3641 eøøø øeeø øøøø øøøø øeøø øøeø øøøe øeøø: 
3651 eøøø eeee øøøø øeøe øeeø øøøe øøøø øeeø: 
3661 eøø. e.eø øøøe øøøø øeøø øeøø øøeø øøøe: 
3671 ,ete øøø. eøee øøøe øøøø øøøø øøøø øøøø; 
3681 eøøe eeøø øøøø øøøø øøeø øøøø øøøø øeee: 
3691 .øe. ø.ø. .eøe eeee eøøe eeøe øøe. eøee: 
36A1 øeøø øeøe øøøø øøøe øeøø øøøø øøøø eøeø: 
36B1 øøøø øeøø øeøø øøøø øøøø øeøø eøøø øøø
; 
36C1 øøeø øøøe øøeø øøøe øøøø øøøe øeøø øøøø; 
36D1 eøeø øøøe eøøø øøøø øøøø .øøø øøøø .øee; 
36E1 øøøø øeøe øøeø øøøø øøøø øøøø eøøø øøøe; 
36F1 øøeø øeøe øeøø øøøø .øeø øøøe eeøø øøøø 


Frequency Output 


3AØ1 2øØØ øøøe 2eøø øøøe 2ØØØ øøøø 2ØØØ øøøø; 
3A11 2øøø ø.øe 2øøØ øøøø 2eøø øøøø 2øØØ øøøe: 
3A21 2øee øøte 2øøø øøøø 2øeø øeøø 2ØØ' øøøø: 
3A31 2øøe .eee 2øeø øøøe 2øØØ øøøe 2øØØ øøeø; 
3A41 2øøø øeøe 2øøø øeeø 2øeø øøøø 2øØØ øøeø; 
3A51 2øeø øøøø 2øeø øiøe 2øØØ øøøø 2ØØ' øeeø: 
3A61 2øeø øøeø 2øøø øøøe 2øØØ øøøe 2eøø øøøø; 
3A71 2øøe øløØ 2øøø øeøe 2ØØØ teøø 2ØØø ØØiØ; 
3AB1 2øøø øeeø 2øØØ øøee 2øØØ øeøe 2øØØ øøeø; 
3A91 2øØø øøøe 2øøø øøøø 2eøø øøøø 2Øøt øøøø; 
3AA1 2øøø øøøe 2øøØ øø,ø 2øØØ øøøø 2ØØØ øøeø: 
3AB1 2øøø øeøe 2øeø øøøe 2ØøØ øøøø 2eøø øøøø: 
3AC1 2.øø øøøe 2ø.ø øøøø 2ØØØ øøøø 2ØØø øeøø; 
3AD1 2øeø øøøe 2øøØ øøøø 2ØØØ øøøø 2øØØ øøøø: 
3AE1 2øeø øøøe 2øØø øøøø 2ØØØ eøøø 2ØØØ øøøø; 
3AF1 2øee øeøe 2øeø eøøe 2øØØ øøøe 2øØØ øøøø 



8 



ASP FFT Program 
Program Validation Output 


(2 of 128) Time Input 


3óØ1 øaeø eaøø øeøø øøøe øeøø øøeø eøøe øeøø; 
3611 eeee eeee eeeø øeøø øøeø øøøe øeøø eøøø; 
3621 .eee eeee ..eø øøøe øeøø øøeø eøøe øøeø: 
3631 .eee .e.e eeee eøøe øeøø eøøe øeøø øøeø: 
3641 eeee .e.ø eeee øeøø .eøe øøeø eøøø øeøø; 
3651 .eee ee.e .eeø eøøe øøeø øøøø øeøø øøeø: 
3661 e.ee eeee e..e øeøø øø.ø eøeø øøeø øeøø; 
3671 .eee ee.e .eee eøøe øeøø øøeø øeøø øøøø; 
3681 ..ee eeee eeee eøøø øøeø eøøe øeøø øeøe; 
3691 .... .eeø .eeø øøeø øeøø øøeø øøøø øøøø: 
36A1 .ee. ..ee ee.ø eøø. e.øø øøøe øøøø øøeø: 
3681 e.e. ..øe e.ee øeøø eøøe øeøø øøøe øeøø; 
36C1 .ee. .e.e eeee øøøe øeøø øøøø øeøø øøøø; 
36D1 ..ee .iØ' ee.. øeøø øøeø eøøe øøeø øøeø: 
36E1 ..ee eeee ee.ø øøøe øeøø øøeø øøøe øøeø: 
36F1 ..e. ..ee ee.e eøee eeøø eøøe øeøø øeeø 


Frequency Output 


3AØ1 2'ØØ øøøe 13FE øø.ø 13FF øø.ø 13F5 øeøø; 
3A11 13EC ..ee 13E1 .øøe 13D4 .øøe 13C4 eøeø; 
3A21 1382 .... 13Ae øeøø 1387 .øøø 136F øeøø: 
3A31 1357 ...e 1336 eøøe 131F øøeø 12F6 øøeø: 
3A41 12D4 ..ee 128e eøøø 1289 eøøe 1262 øøee: 
3A51 1239 eøøe 12eF eøøø 11E2 øøeø 11CØ øeøø: 
3A61 1187 ee.e 1159 eøøø 1129 eøøe 1øF9 øøee; 
3A71 ,.e7 .eee 1e96 ø.øø 1e64 øeøø 1Ø32 øeøø: 
3A81 ,... eø.. eF28 eøøe ØFØ4 eøøe ØED6 øøeø; 
3A91 .EA8 ee.e eE7A øeøø øE4C .øøe ØE1A eeeø: 
3AA1 'DEA .e.e eD80 eøø. 0E1E øøeø eDF1 øøeø; 
3A81 'DC7 .e.ø eD9E eøøe ØD77 øøøe ØDSØ øøeø; 
3AC1 .D2C ..ee 'D'A ø.øø eCE1 øøeø eCCA øeøø; 
3AD1 eCA9 .e.e eC91 eøøe ØC79 øøøø ØC6Ø øøeø; 
3AE1 .C4E ee.e .C3C øeøø ØC2C øøøø ØC1F øeøø; 
3AF1 .C14 .eee .Ce8 eøøe ØCØ1 øøeø ØCØ2 øøeø 
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ASP FFT Program 
Program Validation Output 


(4 of 128) Time Input 


3óØ1 ØSøø øsøe Ø8ØØ ø8eø eøøe øøeø eøøø øeøø: 
3611 eøøe eøøe eøeø eøøe øøeø øøøe øøøø øøøø: 
3621 .e.e .ee. eee. øeøø øøeø eøøø øøeø øeøø: 
3631 .eee eeee eeeø eøøe øeøø øøeø ø.øø øøeø: 
3641 .ee. eeee øeee eøøø øøeø .øøe øeøø øøeø; 
3651 eeee eeee eeeø øøeø øeøø øøeø eøøø øeeø; 
3661 .eee eeee eeeø eøøø øeeø .øøe øeøø øøøe: 
3671 e.ee eeee e..e øeøø øøøe øeøø øøøø øeøø: 
3681 e..e eeee eeeø eøøe øøøø øøøe øeøø øøøø: 
3691 ee.e e.e. eeee øeøø øøeø eøøe øeøø eøee; 
36A1 .ee. eeee eeeø øøøe øeøø øøeø eøøø øeeø; 
36B1 .e.ø eeee eeee eøøe øeøø .øøe øeøø øøøø: 
36C1 e.ee .eee eeee øeøø eøø. øøeø eøøø øøøø: 
36D1 .e.e eeee eeeø eøøe øøeø eøøe øeøø øøeø; 
36E1 eeee .eee eeee øeøø øøeø eøøø øøeø øeeø; 
36F1 .... e.ee ee.ø øøøe øeøø øøeø øøøø øøeø 


Frequency Output 


3AØ1 2Ø4A eøøe Ø3óF øøeø Ø13C øøeø e122 øeeø; 
3A11 .eCE eeee e'BC ø.øø øeB2 eøøe øeA2 eøeø: 
3A21 eø92 .eee ee9S øøeø øeS2 øøøø eø86 øeøø; 
3A31 eeS6 eeee ee7E eøøe ØØS2 .øøe øe7E ø
øø; 
JA41 .ese eeøe ee78 øeøø e086 øeøø eø7A øeøø; 
3A51 e.82 eeee eeS1 eøøe øe7E øøøø øesø øøøø: 
3A61 eeS2 .eee e.7D øeøø øess øøøe ØØ7C øøøø: 
JA71 eese eeee eeS2 eøøe Ø.S2 øøeø eø7A øøøø: 
3AS1 eeS6 eeee e.7A øøøe ØØS2 eøøe øe7E øøøø; 
3A91 eese eee. e'7C øøeø eø85 øøeø eø79 øeøø; 
3AA1 eeS2 .eee .e7C eøøø ØØ7E .øøe øe7D øøøe; 
3AB1 .eS2 eeee ee7A øeøø ØØS6 øeøø ØØ78 øeøø; 
3AC1 e.se .e.e ee7E eøøe øe8ø øøøe øe7E eøeø; 
3AD1 eeS6 ee.e eeSE øeøø øøse øøøe øeA2 øøøe: 
3AE1 ee9S eeee eeAS øøøe eeBS øøeø eøeB øøeø: 
3AF1 eeDS .eee "28 eøøø Ø14A eøøe Ø37F øøøø 
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ASP FFT program 
Program Validation Output 


(8 of 128) Time Input 


3óØ1 Ø8ØØ eaøe ØSøø øaeø esøø 08eø e8øe øaøø; 
3611 ee.. .eee .eeø eøøø øøeø eøøe øeøø øøee; 
3621 eeee eeee eeee øeøø øeeø øeøø øøøø øeøø: 
3631 eeee eeee eeeø eøøø øe
ø Ø
0Ø øeøø øøeø; 
3641 eee. eeee .eee øeøø øøeø øøøe øeøø eøøø: 
3651 eeee eeee eeee øøeø øøøø øøeø eøøe øeøø: 
3661 eeee eeee eeee eøøe øeøø øøøe øeøø øøøø: 
3671 eeee eeee eeee øøøø øøøe gø
ø øøøø 
øøø; 
3681 eeee øeeø eøeø eøøe 0ØØØ øøøe 
0ØØ øøøø; 
3691 e..e eeee eeee øeøø øøeø øøøe øøeø eøøø; 
36A1 ø..e ..ee eeeø eøøe øeøø øøeø eøøø øøeø; 
36B1 øe.e .eee eeee eøøe øøeø øeøe eeøø 0feø: 
36C1 e.e. eeee eee. øøeø eøøø øøeø eøø. øeøø; 
36D1 ..ee eeee e.eø e0iø øøeø .øøe øeøø øøes: 
36E1 ..ee eeee eee. øeøø øøeø øeøø øøøø øeøø; 
36F1 ee.e eeee .eeø eøøe ØiØØ øøøe øeøø øøeø 


Frequency Output 


3AØ1 25eC .øø. lS3D øøøe 1481 øøeø 13ge øøøø: 
3A11 12D7 ..ee 124D øeøø 11FA øøøe 11AØ eøøø: 
3A21 113A eeee 1eED øøøø "A4 eøeø IØ69 øeøø; 
3A31 "23 .eee eFFe eøøe ØFBD øøøe ØF8
 øøeø; 
3A41 eFSe ..ee eF2S øeøø eEF7 øeøø eED6 øeøø; 
JAS1 'EBS .ee. eE99 .øøe ØE94 .øøe ØE27 øøeø; 
3A61 eE12 .ee. eDDA øeøø ØDAA øøøe ØD9B øøøø: 
3A71 eD99 .eee .Dl8 eøee ØD49 øøeø eD19 øøeø: 
3A81 eD64 ..e. .D1S eøøe ØD49 øøøe ØD78 øøeø: 
3A91 .D9S eeee .D97 øø.ø eDAE øøeø eDDE øeøø: 
3AA1 'EeE eeee .E23 eøøø ØE9Ø eøøe ØE9D øøøe: 
JAB1 eEBS eeee eECA øeøø ØEF7 øeøø ØF29 øøøø: 
3AC1 'FSe eeee eF7D eøøe ØFB5 eøøe ØFEC øøeø: 
3AD1 "'8 eeee le61 øeøø 1eAS øøøe 1eED eøeø: 
JAE1 1136 eeee 1194 øøøø 11EE øøeø 1ZQ9 øøeø: 
3AF1 12D3 eeee 137C eøøe 147D eøøe 1535 øøeø 
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ASP FFT Program 
Program Validation Output 


(16 of 128) Time Input 


3óØ1 ØSøø .søe esøø øaøø eaøø øaee ea0ø øaøø: 
3611 øsee eaee eseø eaøø øaøø øaøe eaøø Ø8ØØ: 
3621 .eee ee.e eeee øeøø øøeø øeøø øøøe øeøø; 
3631 eeee ee.e eeeø eøøe øeøø øøøe øeøø øøøø; 
3641 e.ee eeee eeee øeøø øøeø øøøø øeøø øøøe: 
3651 e.ee eeee eeeø øøøe øeøø øøeø eøøe øeøø; 
3661 .eee eeee eeee eøøe øeøø eøøe øeøø øøøø: 
3671 eeee eeee eee. øeøø eøee øeøø øøøe øøøø: 
J6S1 eeee .eeø eeeø eøøe øeøø eøøe øeøø øøøø; 
3691 eeee .eee eeee øeøø øøeø eøøe øøeø øøøø; 
36A1 eeee .eeø eeeø eøøe øeøø øøeø eøøø øøeø: 
3681 eee. .eee eeee eøøe øøeø eøøe øeøø øøeø; 
36C1 e.ee eeee .eee øøeø eøøø øøeø øøøø øeøø: 
36D1 eeee eeee eeee eøøø øøeø eøøø øeøø øøøe; 
J6E1 e.e. eeee eeee øeøø øøeø øeøø øøøe øeøø: 
36F1 e.ee e.eø eeeø eøøe øeøø øøøe øeøø øøeø 


Frequency Output 


3AØ1 2Ø3A eøøe Ø372 øøeø Ø14Ø øøeø e122 øeøø: 
3A11 eeCD eeee eeBF øeøø ØØB2 eøøe ØØA3 øøø
; 
3A21 ee92 elee ee9B øøøe 
Ø88 øøeø eø8A øøøø; 
JA31 el86 eeee ee7F eøøe øe82 øøøø øe7F øøøø; 
3A41 e.7C .ee. ee75 øeøø eø82 øøeø eø77 øeøø; 
3A51 e.7E eeøe ee78 eøøe ØØ78 eøøø øe7B øøøø; 
3A61 ee7E eeee ee77 øeøe øøeø eøøø ØØ7D øeøø: 
3A71 ee7F eeee ee7E eøøe øe82 øøeø øe78 øøøø; 
3A81 e.86 eeee e.7S eøøø øØ7E eøøe øe7E øeeø; 
3A91 le7B .e.e 1875 øøtø eøsø øøøø eø73 øeøø; 
JAA1 e.7E ...e .177 eøøø ØØ7S eeøe øe7S øøøe; 
3AB1 ee7E .eee .e73 øeøø ØØ82 øeøø ØØ71 øeøø; 
3AC1 .e7C .eee ee77 eøøe øe7A øøøe øe7B øøøø; 
3AD1 e.82 eeee ee82 øesø ØØ80 øøøø 
Ø91 8ØØØ; 
JAE1 el92 eeeø ee9F øøøe øeAE øøeø ØØBB øøøø; 
3AF1 e'CD eeee e11E iøøe Ø14Ø øøøe Ø372 øeeø 
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ASP FFT Program 
Program Validation Output 


(32 of 128) Time Input 


36Øl øeøø øaøe Ø8ØØ 08eø ea0e 08eø 88Ø' ØSøø; 
3611 eaee eaee eaøø e8øe øaeø e8øe Ø8Ø
 ø
øø; 
3621 eaee eaee eaee øaøø øaeø eaøø ø8eø øaøø: 
3631 esee eaee eaee e80e eaøø øaøø esøø Ø8ØØ: 
3641 eeee eeee eee. eøøø øøeø øøøe øøøø øøøe: 
3651 e.ee e.ee eeee øøeø eøøø øøøø eøøø Ø9

; 
3661 eeee eeee eeeø eøøø øøøø øøøe øeøø øøøø; 
3671 eeee eeee eeee øeøø øøeø øeøø øøøø øeøø: 
3681 eeee eeee eeee eeøe øeøø øøøe øeøø øøeø; 
3691 e.ee eeee eeee øeøø øøeø øøøe øeøø 'øee: 
36AI eeee ee.e eeee øøøø øeøø øøeø eøø. øøeø; 
36B1 e.,e eeee eeee eøøe øeøø eøøe øeøø øeeø: 
36C1 ee.e ee.e eeee øeøø eøøe øøeø eøøe øøøø; 
36D1 eeee e.ee e.eø eøøe øøe
 eøøe øeøø øøeø; 
36E1 eeee eeee eeee øeøø øøeø eøøø øøeø øeøø; 
36F1 eeee eeee eeeø eøøe øeøø øøeø øøøø øøeø 


Frequency Output 


3AØ1 2486 eøøe 1535 øøeø 14a6 øøøø 137E øøøø: 
3A11 12D9 e.ee 124B eøøe IIF6 øøøe 1192 øøøø; 
3A21 1138 e.ee leED øøøø 1ØA4 øeøø 1ØSB øeøø: 
3A31 ,.eF eeee eFE9 eøøe ØFBI øøeø ØF7S øøeø; 
3A41 .F4E eeee eF21 eøøø ØEF7 øøøe ØEC7 øøøe; 
3A51 'EAD eeee eE9S øø.ø ØE8C øøeø eEIF øøøø; 
3A61 eE1e .e.e .DD6 eøøe ØDAC øøøø 0D95 øøeø; 
3A71 eD9B eeie eD6E øe0ø ØD38 0e00 eDøF øeøø; 
3AS1 .D66 eeee eDea eøøe ØD38 øøøe ØD72 øøeø; 
3A91 .D97 eeee eD95 øeøø ØDØØ .øøe ØVDA eøøø: 
3AA1 eE.e eeee eE1B eøøe ØE8C øøeø eE95 øøeø; 
3AB1 eEAD eeee eEC3 eøøe eEF7 øøøe ØF21 øøøø; 
3AC1 eF4E eeee eF6D øøeø eFA9 øøøø eFED øeøø; 
3ADI 1e.7 eeee 1e57 eøøø 1ØA8 eøøø leED øøøe: 
3AE1 1134 eeee 118A øeøø 11EA øeøø 1247 øeøø; 
3AF1 12DS ee.e 136A eøøe 1482 øøøe 152D øøeø 
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ASP FFT Program 
Program Validation Output 


(64 of 128) Time Input 


3óØ1 øaøø øaøe 0aøø øaøø eaøe øaøø eaøø øaøø; 
3611 eaee e8ee eaeø eaøe øaeø eeøe øaøø øaøø; 
J621 eaee e8ee eaee øaøø øaeø ,aøø øaeø øaøø; 
3631 eaee .aee eaeø eaøe Ø8ØØ øaeø øaøø øaeø: 
3641 eaee eaee eaeø eaøø øaeø e8øe Ø8Ø
 0aøø; 
3651 eaee .aee eaeø øaeø eaøø øaøø eaøø 0SØØ; 
3661 eaee eaeø eaeø e8øø øaeø øaøe øaøø øaøø; 
3671 eaee e8ee eaee 0aøø øaøe Ø8ØØ øaøø øaøø; 
3681 ..ee .eee eeeø eøøe øeøø øøøe øeøø øøøø: 
3691 eeee eeee eøee øeøø øøeø øøøe øeø0 øøøe; 
36A1 eeee eeee eeeø øøøe øeøø øøeø eøøø øøeø: 
3681 .eee .eee eeee eøøe øeøø eøøø øeøø øøeø; 
36C1 .e.e .eee eeeø øeøø eøøe øøeø eøøø øeøø; 
36D1 eeee eeee eeeø eøøe øøeø eøøe øeøø.øøeø; 
36E1 eeee eeee eeee øeøø øøøø øøøø øøøø øøøø: 
36F1 eeee eeee eeeø eøøe øeøø øøeø øeøø øøeø 


Frequency Output 


3Aø1 2.2A .øøe ø3óE øøeø e13F øøeø e12e øøøø; 
3A11 eeCA elee elBC eøøe ØøAF øøøe ØØ9F øøøe: 
3A21 eege eeee ee96 øeøø ØØ83 øøøø ØØ86 øeøø; 
3A31 .e8S eeee ee77 eøøe øe7D øøøe Øø79 øøeø: 
3A41 ee78 eeee ee6B øeøø ØØ81 øøøø øe7J øø
ø; 
3A51 ee7D ee.e ee74 øøøe øe75 øøeø eø74 øøeø; 
3A61 .e7C eeee ee73 eøøe øe7B eøøø øe76 øøeø; 
3A71 ee7A eeee ee7E øeøø eø7F øøeø eøJ6 øøøø; 
3A81 eea6 eeee ee72 eøøe ØØ7B eøøø Øø/A øøøø: 
3A91 ee7A .eee ..72 øeøø øØ7B øøøø ØØ73 øeøø: 
3AA1 ee7C .eee ee74 eøøe øe71 øøeø øe74 øøeø; 
JAB1 e.79 eeeø ee6F eøøø 0øìD øøøø øØó
 
0

; 
3AC1 ee78 eeee ee7S øøeø øe79 øøeø ØØ77 øeøø: 
3AD1 ee81 eeee ee7E eøøe øe7Ð øøøø ØØ96 øøøø: 
3AE1 ee9. eeee e.98 øeøø ØØA7 øeøø eøBa øeøø; 
3AF1 "C6 eeee e11C eøøe ØI
B øøøø Ø36E øøeø 


D-14 



ASP FFT Program 
Program Validation Output 


DC Time Input 


3óØ1 øseø Jaøe ØBØØ øaøe ØBØØ ØSøø esøs ØSSø; 
3611 eBee eBee eBee ØBØØ øseø esøe øaeø e8øe; 
3621 iBee e81i eaee eaøø eBøø øaøø ieøe øaeø: 
3631 eaee øsee eBee eaøe øseø øsøe øaøø 9aøø; 
3641 eaee eBee eBee ØBØØ eaøe ØSiØ i8Ø
 Ø8
Ø; 
3651 eBee 'Bee iBeø esøø 0SØØ ØSøø øaøø ØSÐØ; 
3661 iaee eaee e8ee øaøø 0eeø esøø ØSøø øaøø; 
3671 eBee iBee eBeø esøe ØBØØ ØSøø øaøø øaøø: 
36B1 esee eaee eaee eeøø øeøø øsøe 0aøø ØSøø: 
3691 .ae. .aee .aeø iSeø ØSøø øeøø esøø øaøø; 
36A1 eale 'Sie .8ee esøe 0eøø 08øe ØBØØ 0890: 
3681 eae. .aee iaee ØBØØ øaøe øaøø eeøø ØBØØ; 
36C1 eaee .aee eseø ieøe ØBØØ JSøe ØBØØ Ø8ØØ: 
36D1 eBel iaie Is.e ØBØØ øseø e8øe øaeø iSeø; 
36E1 .81e Isee eaee eeee 08ØØ 08ØØ e80ø Ø8ØØ; 
36F1 ea.. .see eBee 180e 
8eø tSiØ 
8ØØ 
søø 


Frequency Output 


3A0t 2402 eøøe 153Ø øøeø 148A øøøø 1374 øøøø: 
3A11 12CE eeee 1245 eø
e 11ED øøø
 tlSD øøeø; 
3A21 tt2E 'ie. I.E6 øeøø 1ØA2 øøøø 1Ø53 øeø
: 
3A31 ,..D Ieee eFE6 eøøe eFAF øøøø ØF6E øøeø; 
JA4t ør52 eeee eF12 eøøø ØEF1 eøøe ØEBC øøøø: 
3A51 eEAB .ee. eEsD øøeø øEe8 øøeø iE16 øeøø: 
3A61 eEeE .eee eDCF eøøe 0DA7 øøøe ØDSF 0øeø; 
3A71 eD98 .eee eD68 øeøø 0D34 øeøø ØDØ6 øeøø: 
JABI eD5A eeee eDe6 eøøe ØD34 øøøe ØD6C øøøø; 
3A91 eC9S eee. 'DBB øeøø ØDA7 øøøe ØDCF øøøe: 
3AA1 eEeA .e.. eE12 øøøe ØES8 øøeø eEaD øøeø; 
3AB1 IEA8 .e.e IEB8 eeøi ØEF1 eøøe ØF16 øø.ø; 
3AC1 'F52 eeee eF66 øeøø 'FA7 øøeø eFE6 øeøø; 
3AD1 1.e5 .eee "4B eøøe 1eA2 eøøe 1eE6 øøeø: 
3AE1 112A elie 11B1 øeøø 11E1 øøøø 1241 øeøø: 
3AF1 12CA leil 136i eøei 14S6 øøøØ 1528 0ØØØ 
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ASP FIT Program 
Program Validation Output 


D.2.2 S-FFT, Impulse to DC Series 


Impluse Time Input 
(1 of 128) 


JA01 ØBØØ ø
øe øeøø øøøø eøøe øeø
 øøøø øøø
; 
3A11 sese eøee eesø øøøe øøøø øøøe øsøø øøøø; 
3A21 eeee eøeø eeee øe
ø øøeø e
øø øøøø øøøø; 
3A31 eeee ee.e eeøø eøøe øeøø øøeø eøøø øøøø; 
3A41 eeee øeee eeøe eøøø øøeø øøøe øøøø øøøø: 
3A51 eeee eøeø eeee øøøø eøøø øøeø øøøø øeøø; 
3A61 eeee eeee eøøø eøøø øøeø ðøøe øeøø øøøø; 
3A71 eeee eeee eeee øeøø øøeø øeøø øøøø øeøø; 
3AB1 eøee eeee eeeø eøøe øøøø øøøe øeøø øøøø; 
3A91 eeee eeee eeee øeøø øøeø eøøe øeøø øøøø; 
3AA1 eeee eeee eeee øøøe øøøø øøeø eøøø øøøø: 
3AB1 seee .eee eeee eøøe øeøø eøøø øøøs ø


; 
JAC1 eies eeee øøøe øeøø eøøe øøøø øøøø ø
øø; 
3AD1 eeee .eee eeeø eøøø øøeø eøøe øeøø øøø
; 
3AE1 eeøe eeee eeøe øeøø øøeø eøøø øøeø ØiØ
: 
3AF1 eeee eeee eeeø eøøe øeøø øøøø øøøø øøøø 


Frequency Output 


3AÐ1 2øeø eøøe 2ØØØ øøøø 2eøø ø0e0 2ØØi 
ØiØ: 
3A11 2eee .e.e 2eee øeøø 2øeø ØØ0Ø 2ØØ
 øøøø: 
3A21 2øee eeee 2eeø eøøe 2eøø øøeø 2ØØØ øøøø; 
3A31 2.ee .eee 2eee eøøe 2ØSØ eøøe 2eøø øøøø; 
3A41 2.ee eeee 2eee øøøø 2øøe øøeø 2ØØØ øeøø: 
3A51 2eee øeee 2eeø eøøe 2øeø eøøe 2eøø øøøø: 
JA61 2.ee eeee 2e.e øeøø 2øeø øøøø 2ØØØ øeøø: 
JA71 2eee eeee 2eøø eøøø 2eøø øø

 2Ø
Ø øøøø; 
3AB1 2ees esee 2ees eøøø 20ØØ øøøø 2Sø0 
ø
ø: 
3A91 2eee øeee 2eøø øøeø 2ØØØ øøøø 2ØØØ øeø
; 
3AA1 2eøe eeee 2eøe eøøe 2eøø øøøø 2SØØ 
øeø: 
JAB1 2eee eeee 2eet øeøø 2øøe øøøø 2
ØØ øøøø; 
3AC1 2eee eeee 2eeø .øøe 2eøø øøøe 2eøø øøøø: 
3AD1 2øee eeeø 2ee. øeøø 2øeø eøøe 2øeø øøøø; 
3AE1 2eee eeee 2eeø eøøe 2eøø øøeø 2ØØØ 
øø
; 
JAF1 2eee eeee 2eeø eøøe 2øe
 eøøe 2eøø ØØÐØ 
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ASP FFT Program 
Program Validation Output 


(2 of 128) Time Input 


JAØI øaøø øaøs øøøø øøøø e
øe 00dØ øØØ0 0ØØØ; 
3AI1 eiee eeeø øøeø ø
øj øøøø øøø
 ØØ00 Ø0

; 
3A21 eeee eøøø eeee øeøø øø
ø øø
ø øøøø ø
ø
; 
3A31 eeee eeee øeøø eøøe øøøø øøeø øøøø øøøø: 
3A41 eeee øøee eeøe øøøø øøeø eøøs øøøø øøøe; 
JA51 eeeø eees eeeø øøøø eøøø øøøø eøøø øeøø: 
JAbl eøee eeee eeeø eøøø øøeø eøøe øeøø øøøø: 
JA71 eeøe eeee eeee øeøø øøøø øøøø øøøe øeøø: 
JABI eeee eeee eeeø eøøe øøøø øøøe øeøø øøøø; 
3A91 eeee eeee eeeø øeøø øøøø øøøø ØSøø øøøe: 
3AA1 eeee eeee eeeø øøøø øøøø øøe
 øø
ø 



; 
JAbl eøee øeeø eeøs eøø. øøøø øøøe ØSøø ø
øø; 
JACI eeei eiee eeee øeøø ØØ
0 0
e
 Ø0ØØ ØiØ
; 
3AD1 eeee eeøe eeeø eøøe øøeø øøØS øeøø ØØØ0; 
JAEI eeee e.ee eee. øeøø øøeø øøøø øøøø øø
ø: 
3AF1 eele eeee eeeø ØØØI øøøø øøeø øeøø øø
ø 


Frequency Output 


3Ai1 2øØØ øøøe 1FFB øøøø IFEC øøeø IFD3 ØSøø; 
3A11 IFBI eeøe IFBS eøøe IF4F øøøø IFIØ øøeø; 
3A21 tECB eeee IE76 øeøø ICD4 Ø
00 IDeE øeøø; 
3A31 ID3E eeee ID64 eøøe ID7E øøeø IDeE øøøø; 
3A41 ID94 ..ee tDBE øøøø ID7E øøøe ID64 øøøe; 
3A51 ID3E .eee IDeE øøøø ItD4 øøeø IC9Ø øeøø; 
3Ab1 IÇ42 eeee IBEA øøøe 1888 0
0
 Ibl
 

Ø0; 
JA71 IAA8 wiøe tALC 0eø
 19Ao ø

ø 191d 


0; 
3A81 t8Be ises t7E4 øø

 173E Ð0
Ø 1692 øøøø; 
3A91 15Ee eeie 152B øeøø 146C øøøø 13AA øøøø; 
3AA1 12E2 eeøe 1216 øøøø 1148 øøsø 1Ø76 øøøø; 
3Ab1 eFA2 eeee eEct øøøe ØDF4 øøøø ØDIA øøøø; 
3ACt ØC4Ø eeie eBb6 øøeø eASE øøøø e9B6 øøøø; 
3ADt eBDE eeee eseA eøøø Ø738 øøøe Ø6D7 øø
ø: 
JAE1 ØótF øøee e563 øeøø Ø4A5 øøøø Ø3E3 øøøø: 
3AF1 e31F eeee e259 eøøe Ø191 øøøe øeC9 øøeø 
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ASP FIT Program 
Program Validation Output 


(4 of 128) Time Input 


3AØ1 ØBØØ eaøe ØBØØ ø8eø eøøe øØSø eøøø øøøø; 
JAIl øeøj eøeø eøeø øø
ø 

d
 øøø
 øøøø øø
ø; 
JA21 eøje eesø eeøe øeø
 ø
øø ðØØØ ø
øø øøøø; 
3A31 e.ee eeee ees
 øøøe øeøø øøeø øøøø øøøø: 
3A41 seee eeee øeee eøøø øøeø øøøø øeøø øøøø; 
JA51 eeee eeeø eeeø øøeø øøøø øøeø eøøø øeøø; 
3A61 seee eeee øeee eøøe øeøø 00Ø9 øeøø øøeø: 
3A71 eøee eeee eSie øeøø øøøe øeøø øøøø øøøø; 
3AB1 seee eeee søeø eøøe øøøø øøøø øeøø øøøø; 
3A91 eeee eeee eeee øeøø øøe0 øøøe øeøø øø
ø: 
3AA1 eeee eeee eeeø øøøe øeøø øøeø eøøø øøøø; 
3AB1 eeee eeee eeee eøøø øeøø øøøø øøøø øøøø; 
3AC1 eeee øeØe eøø. øøøø eøøø øøøø ø

ø Ø0Ø
; 
JADI eeee eesø eeeø eøøe øøeø eøøe øeøø øøøø; 
3AE1 eeee eeee eeee øeøø øø.ø øøøø øø.ø 0øØØ; 
3AF1 eeee eeeø .eeø eøøe øeøø øøøø øøøø øøøø 


Frequency Output 


3AØ1 3FFC eøøe 3FBD øøøø 3EEB øøeø 3D99 øeøø; 
3A11 3BAB eeel 3Deø eøøø 3DC4 øøøe 3DFA øøøe; 
3A21 3D9C eeie 3CAE øeøø 3B36 øeøø 3946 
øøø; 
3A31 36E2 eeee 3416 eøøe 3eEC øøøø 2D7E øøøø; 
JA41 29D4 eeee 26e2 øeøø 2218 øøøe 2189 øøøø; 
3A51 IF33 eeee IC9D øøøe 19D5 øøøø 16EF øøeø; 
3A61 13F5 eeee le9A eøøe ØE96 øøøe ØC6Ø øøøø: 
JA71 Ø9FC eese e7B2 øøøø Ø4
8 øø
ø 
2}0 Ø

0; 

A
I ø
ø
 .øøø Øl
o ø


 
482 Sø
ø 
b7C ø


; 
JA91 ØB34 iSeS e9AA øøøø ØAD6 øøøø ØB&4 0ØØØ; 
3AA1 eD57 seee eEBS eøøe ØF7B øøeø 1.35 øøeø: 
3AB1 leAD eeee I1E3 eøøø IØD5 øøøe 1ØD6 øøøø; 
3AC1 1152 eeee 11BA øøeø 117E øøeø 1132 øøøø; 
3AD1 I1A2 elee eFD8 øøøø ØED2 øøøe ØD9C øøøø; 
3AE1 eC3E eeee eABC øeøø Ø924 øeøø Ø782 øeøø; 
3AF1 e5DC øeee e4B9 øøøø Ø313 øøøe Ø18D øøøø 


D-18 



ASP FFT Program 
Program Validation Output 


(8 of 128) Time Input 


3AØ1 ØSøø Ø8ØØ ØSøø ø8eø Ø8ØØ ØSøø Ø8ØØ ØSøø: 
3A11 øøøø øeøø øeøø øøøø øøøø øøøe øø
ø øøø
; 
JA21 eøeø øeiø øeøø ø
øø ø
ø
 øøøø ø
øø øø
ø; 
3A31 øøøe øeeø eøøø øøøe øeøø øøø
 
Ø
0 

õø; 
JA41 øøøø øeøø øøee 
øøø øø
ø øø
ø øøøø 0ØØØ; 
JA51 ØiØØ øøøe øøøø øøøø øøøø øøeø øøøø øøøø: 
3A61 ØiØØ øøøø eøøø øøøø øøøø øøøø øeøø øøøø; 
3A71 øøøø øøøø øøøø øøøø øøøø øøøø øøøø øøøø; 
3AS1 øøeø øeøø eøøø øøøø øøøø eøøø øøøø øøøø; 
3A91 eeøø øøee eeøø øøøø øøøø øøøø øøøø øøøø; 
3AA1 øøøø øøøe øøøø øøøø øøøø øøøø øøøø øøøø; 
3AB1 øøøø øøøø øøeø øøøø øøøø øøøø øøøø øøøø; 
JAC1 øøøø øøøø øøøe øøøø eøøø øøøø øøøø øøøø: 
3AD1 øøee øeøø øeØø øøø
 Ø0øØ j0øe ø

ø ø

ø; 
JAEI Ølii øeøi ieøø øøøø øøeø ø
ø
 Ø
0Ø øøø
; 
JAF1 eiøe øeee eøøø øøøø øøøø øøøø 
øøø 0Ø

 


Frequency Output 


3AØ1 3FF8 tøeø JEA8 øøøø 3D14 øøøø 3FØC øøøø; 
3A11 3E32 .øøø 3AAC øøøø 33BA øøøø 2D6E øøøø: 
3A21 283Ø .øøe 23C5 øøeø IF75 eøøø t8tA øøøø: 
3A31 1439 iØØØ ØF34 øøøø Ø9CE øøøø Ø48E øøøø: 
3A41 øøeø øøøø Ø3C1 øøøø Ø725 eøøø Ø9CC øøøø: 
3A51 eB72 øøie 'DDE øøøø 1284 øeeø eFEi øøøø; 
3A61 ØF48 øøøø eDC4 øøøø ØC1ó øøøø ØAC4 øøe
; 
3A71 ØSDD eøøø Ø664 øøøø Ø4AØ øøøø e266 øøøø: 
3A81 øøøø øeøe Ø24C øøøø 0438 ø
ø
 Øj86 



; 
JAYI &747 øøøø ØB69 øøøø ØC68 øøøø Ø9Af øø
ø; 
JAA1 ØA32 eøøø eAøS eøøø Ø86E øøøø ØJD8 
øøø; 
3AB1 i61E ø
ee Ø4EA øøøø Ø35E eøøø ØIA
 øøøø; 
3AC1 øøøe øøøø e1C2 øøøø Ø382 øøøø Ø5ØS øøøø: 
JAD1 Ø622 eøøe Ø6AC eøøø ØA58 øøøø Ø8Ø9 øøøø; 
3AE1 Ø7FE øøøø Ø7DC øøøø Ø8BØ øøøø Ø730 øeøø; 
3AF1 Ø61A eeøe Ø4AØ øøøø Ø2FA øøøø Ø182 øøøø 
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ASP FFT Program 
Program Validation Output 


(16 of 128) Time Input 


JAØ1 øae0 e80e ØSøø øseø ØSøø 08eø øaøi ØSØ0; 
JA11 øseø øsee ØSiØ ØSøø øaøø eaøø ØSøø eaøe; 
3A21 eeee eeee eeeø øøøe øeøø øøeø øøøe øøeø; 
JA31 eeøe eeeø øøøe øøøø 
øø
 øøø
 ø

ø 
ø

; 
JA41 øeøe øeee eøøe øøøø øøøe øøø
 øøøø øøø
; 
JA51 eeee eøee øeeø øøøø øøøø 8ØßØ øeøø øøøø; 
3A61 øeee øeee eeøe øøøø øøeø eøøø øøeø øøøø; 
JA71 eeee eøøe eøeø eøøø øøøø øøeø eøøø øøeø; 
JA81 eeee eeee øeee eøøø øøeø øøøe Ø800 øøøe: 
JA91 eeeø eøee eeeø Ø0ØØ eøøø øøeø eøøe øøøø; 
3AA1 eeeø øeeø øøeø eøøø øøeø øøøe øeøø øøøe; 
JAB1 eeeø øøee øeøe øeøø øøøø øeøø øøøø øeøø; 
JAC1 eøee eeee eeeø eøøø øeøø øøøe øøøø øøeø; 
JAD1 eeøe eeee eøee øeøø øøøø eøøe øeøø eøøø: 
JAE1 øeee eeee eeøø øøøe øøøø 

øø eøøØ øø

; 
JAF1 øeee eeøø eøeø eøøø øøøø øøøø øø
ø øøøø 


Frequency Output 


JAØ1 JFF4 øøøe 3ÐBC øøeø 3EAe øøøø 3412 øøøø; 
JA11 2892 øøee ISlA eøøe 14CE øøøø Ø97Ø øøøø; 
JA21 øøee øøøø Ø6DF øøøø ØB2C øøøø ØD34 øeeø; 
JA31 ØD24 øeee eSe6 øøøe Ø7SC øøeø Ø494 øøeø; 
JA41 øeee eeee .3C4 eøøø Ø45A eø
e Ø79C øøøe; 
JA51 Ø8C6 øeee Ø7AC øøeø eSJC øøeø e3ø8 øeøø; 
JA61 øeee øeee e296 eøøø Ø/A4 øøøe Ø7AC øøøø; 
3A71 e6C6 eøee e59C øøøø Ø45E øøøø Ø23A øøøø: 
JA81 eee2 øeee Ø222 eøøe Ø71E ØØØð 0690 ø
eø; 
JA91 Ø58E eeee e4B4 øeøø ØJ56 øøøe 01Cf øøøø; 
3AA1 øeøø 
øø
 Ø1FØ ø

ø Ø3
C 

øø Ø515 

8Ø; 
3AB1 Ø4Bj øeøe e4DC øøøe Ø3CE øøøe Ø1A7 ø
eø: 
JAC1 eeee eeee Ø1C6 øeøø ø13e ø
øø e2F4 øøøø; 
JAD1 Ø3F8 eeøe eSeE øøøe Ø3AC eøøe Ø185 øøeø; 
JAE1 eeee eeee Ø1A6 øeøø Ø35Ø eøøø Ø263 øøøø: 
3AF1 e4ee øeøø e3F3 eøøe 02C6 øøeø Ø17A øøøø 


D-20 



ASP FFT program 
Program Validation Output 


(32 of 128) Time Input 


3AØ1 øeeø e8øe ØSøø øaøe ØSøø øaeø e8øe øaeø: 
3A11 eijøø Isee eaøe ØSøø 0SØØ øaøe 0800 0aøe; 
JA21 eaee eaee øaeø Ø8ØØ øa0ø ØSøø e8øS øaøø: 
JA31 Isee øaee eaee e8øø øaeø øaøe ØSøø øaeø: 
3A41 eeee eeee øeeø øeøø øøøø øøø
 ø


 
0
0; 
3A51 eøe
 øøøe øø
ø øøØø øøeø øø
ø øøøø øø

; 
JAb 1 eeee eeøe i0eø øeøø øøe
 iØØ
 0ØØØ ø
ø
; 
JA71 eøee øeee øeeø eøøe øøø
 øøøø øøøø øøøø; 
JASI eeøe eøee eeee eøøø øøøø S0ØØ øøøø øøøø: 
3A91 ieeø eeøe eelø øøøø øøøø øøøø iØ00 øeøø; 
3AA1 øeee eeee eeee eøøø øeøø øøøe øeøø øøøø; 
3ABI øeøe eeee Ieee øeøø øøøe øeøø eøøe øeøø; 
JAC1 leøe eeee Ileø øøøø 0ØØØ ØØ0Ø øeøø ø
øø; 
3ADI eeee eeee øeee øeøø øøeø eøøe øøeø øøøø; 
JAE1 øøeø øeee eeeø eøsø øeøø øøeø eøøø øøeø; 
3AFI eeee eeee eeee eøøe øøøø øøøe 
eøø øøøø 


Frequency Output 


3A91 3FFØ øøøø JE5C øøøe 2SAA ØØØ0 14ÐA 
øj
; 
JA11 eeøe eøee eCbS øøøø ØDì1 .øøø Ø8CC øø
ø; 
JA21 eeee eøee ebce øøøe 07AØ øøeø Ø584 øøsø: 
3A31 Ieee eeee e4Ae øøøe ØSCA eøøe Ø3F4 øøøø; 
3A41 øøee øøee eJbE øøøø e4cø øøøø eJø4 øøøø: 
JA51 eeøe eeøe e2AE eøøe Ø412 løøe Ø290 øøøø: 
JAb1 øeee ølee e26B øeøø Ø396 øeøø Ø246 øeøø: 
3A71 leeø eeee Ø229 eøøe Ø336 øøøø Ø2Ø8 øøøø; 
3AS1 eeee eeee e1Fe øeøø 02E6 eøøe 01V9 eøøe; 
JA91 epee øeøe e1C5 øøø
 Ø2A
 0ØØØ 
1
3 øøøø: 
JAAI eeee eeee elAø eøøø 026A øø0e 0184 øøøø: 
3AB1 eeee eøee e188 ø
øø Ø23E øøøø 0182 
ø
ø; 
JACI eeøø eeee elSA øøøe Ø2ØA .øøø Ø184 øøøø; 
JAD1 eeøe eøei 01S8 
eøø Ø1FF i0ØØ Ø186 j

ø; 
JAE1 efee eeee Ø1SA øøøø 01FE øøe0 e184 ø
øø; 
JAF1 eeøe øeee i1SA eøøe ø2e2 øøøe Ø18Ø øøeø 
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ASP FFT Program 
Program Validation Output 


(64 of 128) Time Input 


3AØl ØSøø ssøe øaøø ØSøø esøe øa00 eSøt øaøø; 
3A11 eaee saee eaøø øsøe øaeø e8øø øaøø Ø8ØØ; 
3A21 saee ease øaee 0800 0aeø eaøø 0aeø øsøø; 
JA31 eaeø ease eaøø øsøe øaøø øaøø øaøø Ø8ØØ; 
3A41 eaee øaee saøe esøø øaee øeøe øaøø øaøø; 
3A51 øaee eaee eaeø øaeø øsøø øaøø Ø8ØØ 0SØØ; 
JAb1 eaøe eaøø eaøø esøø øa
ø øaØ
 0aøø 
8
Ø; 
3A71 esøe øaeø esøs øaøø 0aøø 0aøø Ø8
ð øaøø; 
3ASI eeee eeee eeeø eøøø øeøø øøøe øøøø øøøø; 
3A91 øeee eeøe eeøe øøøø øøsø eøøe øøeø øøøe; 
3AA1 elee eeee eeeø øøøø øøøø øøeø eøøe øøøø; 
3AB1 eeee eeee eeee eeee øeøø øøøe øøøø øøøø; 
3AC1 eeee eeee eeee øeøø eøøe øøeø øøøø øeøø; 
3AD1 eeee eeee øeee eøøe øøeø eøøe øeøø øøeø; 
3AE1 eeee eeeø eeee øeøø øøeø eøøø øøøø øøøø; 
3AF1 eeøe seøe øeeø øøøe øeøø øøeø øeøø øøeø 


Frequency Output 


3A01 JFF4 øøøe 1E32 øøeø eøø1 øeøø eC34 øeøø; 
3A11 øeee seee e7øE eøøø ØØØ4 øø

 ØS11 


ø; 
JA21 e
øe eøee e33e øøøø øøe2 øøøø 03D4 eøøø; 
JA31 eeee eøee 035C øøøø ØØØ2 øøe
 Ø466 øøøø; 
3A41 øeee eøee ø4ee øøøe øøe2 eøøe Ø362 øøøø; 
3A51 eøøe eeee e2ca øøøø eøøø øøeø ØtAA øeø
; 
3A61 eeee eeee I1DØ eøøø øøe2 .øøe Ø2CB øøøe; 
3A71 eeee eeee e36e øsøø øøeø 0000 Ø368 0000; 
3AB1 eeee øeee S2E1 eøøe øeø2 øøøe Ø1A7 ØØ'0: 
3A91 øeee eesø e11E øeøø øøøt øøøø Øl1C øøøø; 
3AA1 eeø0 søee e1C6 øøøe ØØØ2 øøøø e242 øøøø: 
3AB1 øeeø øeee e275 eøøø eeø1 øøøe Ø1E4 øøøø; 
3AC1 eeee eøee e1Ab øeøø Ø002 øøøø 
Ø6Ø 0


; 
JAD1 øøeø øeøe ØØ2L eøø0 øø
ø eøøø 013A ø

ø; 
JAEI jej0 eeee .17t 
øø
 
øj4 øøøø 0156 0ØØ0; 
3AF1 eeee ee0
 ØlbD øøøe øøøø øøeø ØØ
6 øøeø 
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3A0t ßaøø eaøe øaøø øaeø eaøø øaeø eaøe øaøø; 
3Att eaee eaee eaøø eaøø øaeø øaøe ØS0Ø øaø
: 
3A2t eaee eaee iaøe øaøø øaøø øaøø 0aøø øaøø; 
3A3t eaee eaee esøø ø8øe 0a00 øaøe 08
ø 
ö
ø; 
3A4t eaee øsee eaee øaøø øaeø eaøø ØS
ø øaøø; 
3AS1 esee esee eseø 0aøø øaøø 08ØØ e8øe ø8eø: 
3A6t esee eaee eSBe esee øaøø e8øe øaøø 0aeø; 
3A7t eaee eaee eaee 0aøø 
8

 0800 ì8ØØ Ø8

; 
JAS1 Baee esee eseø eaøø Ø80Ø øaøø Øaøø øaeø; 
3A91 øsee es
ø eaeø øaøø 0aøø 
aø0 0aeø Ø8
0; 
3AA1 eaøe esøe eseø .8ØØ 0aøø øaøø ØS
ø Ø8ØØ; 
3AB1 øsee esel øsee eaøø øaeø eaøe øaøø ø8øe; 
3AC1 esee esee eaeø ø8eø ea0ø øaeø ea0e øaøø; 
3AD1 esee øaee eaeø esøø øaeø eaøe øaøø øsøe: 
3AE1 esee eaee easø ØSøø øaøe øaøø øaøø øaøø: 
3AF1 øaee eaee iaeø e8øe ØSøø ø8øe 0aøø øaøø 


. 


3AØ1 3A2E eøøe Ø
BC øøøe Ø4CE øøeø e35E ø
øø; 
3A11 e1F6 eeee ee5E øeøø øØCø øøøø 013Ø eøøø: 
3A21 eeEB eeee ee5C eøøe ØØ94 ø
e
 

Ù
 0


; 
JA31 eeC6 eeee e855 Ø0Ø
 øøa8 jø
ø Ø102 øø
Ø; 
3A41 e1.9 eeee øeDe øøøø e068 ØØØ0 ØØ82 Ø
Ø0; 
3A51 øeBa .
eø ee86 øøøø 0038 eøøe ØØ4C 000e; 
3A61 ee66 øeee øe4C øeøø ØØ75 øeøø Ø0ES øøøø: 
3A71 1142 øeee e13A eøøe Ø1Ø6 øøøø Øt3A øøøø; 
3Aa1 e17F eeee e1BC øeøø Ø19
 8øøe Ø142 øø
ø: 
JA91 e147 eeee e165 øøøe Ø16A øøeø e12e øøøø: 
3AA1 leCA øeee eeB6 eøøe Ø8Bt ø
ø
 øe9C øøøø; 
3AB1 ee4C eøee ee1F øøøø eø4D øeøø ØØ46 øø
ø: 
3AC1 ee2D eeee øeS3 øøøe øøa6 eøøø øeAE øøøø; 
3ADl eeSE ø
øe øelA øeøø øØSq øø

 ØØC6 
Ø0
; 
JAE1 e0Cø 0
ee ØØBC øøøø 
eB4 
ø

 øø
ø 



; 
JAFI eece eeee 00Ee eø
e 0102 øøøe ØØC2 
øjø 
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